Dim db As DAO.Database
Dim sMDBFile As String
Dim sPasswort As String
 
sMDBFile = App.Path & "\Datenbank.MDB" 'Datenbankname
sPasswort = ""
Set db = DBEngine.OpenDatabase(sMDBFile, False, False, _
                ";pwd=" & sPasswort)
 
Dim rec As DAO.Recordset
Set rec = db.OpenRecordset("Tabelle") 'Tabellenname
 While Not rec.EOF
  MsgBox rec.Fields("Vorname").Value
 rec.MoveNext
 Wend
 
rec.Close
Set rec = Nothing
db.Close
Set db=Nothing

Don't , be