Postup:
Do projektu je třeba přidat referenci na MS DAO Library. Pokud máte
databázi ve formátu MS Access 2000, je třeba verze 3.6.
Private Sub ChangeAccessPassword()
Dim Db As Database
Set Db = OpenDatabase("C:\My Documents\northwind.mdb",
True, _
False, ";pwd=OriginalPassword")
Db.NewPassword "OriginalPassword", "NewPassword"
Db.Close
End Sub
|