' Datenbank nachträglich durch Passwort schützen
Dim DB As Database
Dim sMDBFile As String
Dim sPasswort As String
 
sMDBFile = App.Path & "\MeineDB.MDB"
sPasswort = "geheim"
 
' Datenbank EXKLUSIV öffnen
Set DB = DBEngine.OpenDatabase(sMDBFile, True, False)
 
' Passwort festlegen
DB.NewPassword "", sPasswort
 
' Datenbank schliessen
DB.Close