Und falls Sie das Data-Control verwenden...
muss das Passwort in der Connect-Eigenschaft angegeben werden:
 
' passwortgeschütze Datenbank via Data-Control ansprechen
Dim sMDBFile As String
Dim sPasswort As String
 
sMDBFile = App.Path & "\MeineDB.MDB"
sPasswort = "geheimer"
 
Data1.DatabaseName = sMDBFile
Data1.Connect = ";pwd=" & sPasswort