'Datenbank öffnen
Dim Db As Database
Dim dbFile As String
 
dbFile = App.Path + "\ADRESS.MDB"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
'Recordset auf Basis einer SQL-Abfrage erstellen und öffnen
Dim SQL As String
Dim rs As Recordset
 
SQL = "SELECT * FROM Adressen"
Set rs = Db.OpenRecordset(SQL)

Set rs = gbDB.OpenRecordset("Adressen")