Change Access Password Using VB

This code will allow you to changethe password assigned to an Access database using VB code.

==========================================================
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