Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.jet.oledb.3.51;" & _
  "Data Source=" & App.Path & "DBank.mdb;"
 
Dim rec As New Recordset
Set rec.ActiveConnection = conn
rec.Open "SELECT *. FROM `Produkte(T)`"

' Passwortgeschütze Datenbank öffnen
Dim DB As Database
Dim sMDBFile As String
Dim sPasswort As String
 
sMDBFile = App.Path & "\MeineDB.MDB"
sPasswort = "geheimer"
 
Set DB = DBEngine.OpenDatabase(sMDBFile, False, False, _
  ";pwd=" & sPasswort)