Dim DB As dao.Database
            Dim sMDBFile As String
            Dim sPasswort As String
 
            sMDBFile = Datenpfad & Datenbank
            sPasswort = "geheim"
 
            ' Datenbank EXKLUSIV öffnen (hier habe ich eine Fehlermeldung)
            DB = dao.DBEngine.OpenDatabase(sMDBFile, True, False)
 
 
            ' Passwort festlegen
            DB.NewPassword("", sPasswort)
 
            ' Datenbank schliessen
            DB.Close()

Hänk

(Wer früh aufsteht hat mehr vom Tag)