Option explicit
    Dim Db As Database
    Dim Tabelle As Recordset
    Dim dbFile As String
 
private Sub Form_Load()
dbFile = App.Path + "\Datenbank.mdb"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Adressen")
'...
End Sub