Option Explicit
' Datenbank-Objektvariablen
Private Db As dao.Database
Private Rs As dao.Recordset
 
Private Sub Form_Load()
  ' Datenbank öffnen
  Set Db = DBEngine.OpenDatabase(App.Path & "\db.mdb")
 
  ' Recordset öffnen (Dynaset)
  Set Rs = Db.OpenRecordset("Vertreter", dbOpenDynaset)
 
End Sub