Global db As Database
....
Set db=OpenDatabase(...)

Dim db As Database
Dim rs As Recordset
Dim SQL As String
 
Set db=OpenDatabase(...)
SQL="select name, vorname, strasse, ort from adressen where adressen.plz=12345"
Set rs=db.OpenRecordset(SQL, dbOpenSnapshot)
debug.print rs!name
debug.print rs!vorname
...
rs.close
set rs=nothing
db.close
set db=nothing