>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 >I saw and participated in a thread on this topic in MSDN forum.