Dim Db As Database
    Dim dbFile As String
    Dim Tabelle As Recordset
    Dim tab_Fahrten As Recordset
 
    dbFile = App.Path + "\Aufträge.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Kunden")
    Set tab_Fahrten = Db.OpenRecordset("Fahrten")