Private ADOcn As ADODB.Connection
Private ADOrs As ADODB.Recordset
Private oBC As MSBind.BindingCollection
 
Private Sub Form_Load()
'Datenbank konnekt
    Set ADOcn = New ADODB.Connection
    Set ADOrs = New ADODB.Recordset
    Set oBC = New BindingCollection
    Dim dbfpad As String
 
    DBPfad = App.Path & "\db\db.mdb"
 
    With ADOcn
    .CursorLocation = adUseClient
      .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        DBPfad
      .Open
    End With
 
'Recordset
    With ADOrs
      .ActiveConnection = ADOcn
      .Source = "tab_Adressen"
      .CursorType = adOpenStatic
      .LockType = adLockOptimistic
      .Open
    End With
 
    With oBC
      Set .DataSource = ADOrs
      .Add txtName, "text", "Name"
       ' und hier die anderen felder
    End With
End Sub

mfg
peacemaker

e-mail: vbarchiv@web.de