'Datenbank öffnen
    Dim Db As Database
    Dim Tabelle As Recordset
    Dim dbFile As String
    dbFile = App.Path + "\Datenbank.mdb"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Adressen")