ms access password in vb

[tigars]

I want to know how to access a ms access database which have already a password with vb coding. How can i ask the user to enter a password to access the database.
Example: the ms access database have the password "password

 

[JerryKlmns]

This is live thread705-1427121

 

[tigars]

I'm a new VB programmer. Here is my code. When my ms access database have no secure password, it's work (strpassword=""). But, when i put a secure password to my ms access database (pass), i can't open the database.
Can you help me. Thank you!
Note: the coding will be very helpfull.

Public Sub SetDB(strpassword As String)
Dim path As String
path = App.path
' Dim DB As DAO.Database
' strpassword = "pass"
On Error GoTo Erreur
Set DB = OpenDatabase(path & "\datbase.mdb", , , strpassword)
Exit Sub
Erreur:
MsgBox "Can’t open database. (datbase.mdb)", vbCritical, "Erreur"
End
End Sub


Private Sub Form_Load()
Dim strpassword As String
SetDB strpassword
…..

 

[JerryKlmns]

SetDB strpassword

Should be

Call SetDB (strpassword)

 

[tigars]

thank you for your help. i add "false" and it works.

strpassword = ";pwd=" & "physio"
On Error GoTo Erreur
Set DB = OpenDatabase(path & "\physio.mdb", False, False, strpassword)

 

[JoeAtWork]

SetDB strpassword

Should be

Call SetDB (strpassword)

I don't see why. I never use Call.