Zm∞na hesla databßze

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

Zp∞t