Namespace Dci_datasetTableAdapters Partial Public Class ProductsTableAdapter Public Sub New(ByVal tcDBFilename As String) MyBase.New() Dim lcConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tcDBFilename Pmks_connectionstring = lcConnectionString Me.ClearBeforeFill = True End Sub Private _pmks_connectionstring As String Public Property Pmks_connectionstring() As String Get Return _pmks_connectionstring End Get Set(ByVal value As String) _pmks_connectionstring = value End Set End Property Private Shadows Sub InitConnection() Me._connection = New Global.System.Data.OleDb.OleDbConnection Me._connection.ConnectionString = Pmks_connectionstring End Sub End Class End Namespace