Dim DB As Database
Dim sMDBFile As String
Dim sPasswort As String
sMDBFile = App.Path & "projekt.MDB"
sPasswort = "passwort"
Set DB = DBEngine.OpenDatabase(sMDBFile, False, False, _
  ";pwd=" & sPasswort)

' Datenbankverbindung herstellen
Dim conn As New ADODB.Connection
Dim rec As New Recordset
conn.Open "Provider=Microsoft.jet.oledb.3.51;" & _
  "Data Source=" & App.Path & "projekt.MDB;"
 
Set rec.ActiveConnection = conn
rec.Open "SELECT `Firma(T)`.* FROM `Firma(T)`", conn, adOpenDynamic, _
  adLockOptimistic
rec.MoveFirst