Private Sub Form_Load()
  Dim dbFile As String
 
' Datenbank öffnen
  dbFile = App.Path + "\Haus.MDB"
  Set DB = Workspaces(0).OpenDatabase(dbFile, False, False)
 
' AnredeCmd_Click
  Set Rs = DB.OpenRecordset("SELECT [Anrede].[ID], [Anrede].[Anrede] FROM" & _
    "[Anrede]")
 
  AnredeCmd.Text = "Bitte auswählen"
  If Rs.RecordCount > 0 Then
    While Not Rs.EOF
 
      AnredeCmd.AddItem Rs.Fields("Anrede").Value
      Rs.MoveNext
    Wend
    End If
  Rs.Close
 
' Tabelle in Textboxen einlesen
  Set Rs = DB.OpenRecordset("SELECT Vorname, Nachname, Strasse, `Haus-Nr`, PLZ," & _
    "Ort FROM Eigentuemer")
 
' Datenbank schliessen
  On Error Resume Next
  Rs.Close
  Set Rs = Nothing
 
  DB.Close
  Set DB = Nothing
End Sub
 
...
 
Private Sub AnredeCmd_Click()
' Datenbank öffnen
 Set DB = DBEngine.OpenDatabase(App.Path + "\Haus.mdb")
 'MsgBox AnredeCmd
End Sub