CodeItBetter Programming Another VB Programming Blog

'Database - How to set, open, and change a password in an Access database using DAO.
'Code for setting database password
Dim db As Database
Set db = OpenDatabase("your_path", True)
'Set new password
db.NewPassword "", "your_new_password"
db.Close
 
'-----------------------------------------------------
'Code for opening a password protected database
Dim db As Database
Set db = OpenDatabase("your_path", False, False, ";pwd=your_password")
 
'-----------------------------------------------------
'Code for changing a database password
Dim db As Database
Set db = OpenDatabase("your_path", True, False, ";pwd=your_password")
db.NewPassword "old_password", "your_new_password"
db.Close