CodeItBetter Programming Another VB Programming Blog

'Database - How to set a password for an access database

'Add reference to Microsoft DAO 3.6 (or 3.51) Object Library

Public Sub SetDatabasePassword(ByVal sFile As String, ByVal sPassword As String)
    Dim db As Database
    Set db = OpenDatabase(sFile, True)
    db.newPassword "", sPassword
    db.Close
End Sub
 
Private Sub Command1_Click()
    Call SetDatabasePassword("C:\Temp\Test.mdb", "Password")
End Sub