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