Excel VBA - Open Password protected Database

[RonMck]

I've been trying to open a password protected MS Access database from
Excel VBA.

I've been using the following code to open nonm password protected
database with out an issue. Is there an additional perameter that I
need to add?


Here is the partial code:


Set G_Workspace = DBEngine.CreateWorkspace("", "admin", "")
Set G_Database = OpenDatabase(Name:=G_DatabaseName, ReadOnly:=True)

(code to query Database)

(Code to close database & Recordset)

This returns error 3031 Invalid password,


Any info would be appreciated,

 

[PHV]

What about something like this ?
Set G_Database = OpenDatabase(Name:=G_DatabaseName, ReadOnly:=True, Connect:=";PWD=yourPassword")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[RonMck]

Finally foud it with the assistance and direction from the forums.

Code used was:

Set G_Workspace = DBEngine.Workspaces(0)
Set G_Database = G_Workspace.OpenDatabase(G_DatabaseName, False, False, "MS Access;PWD=" & G_password)
You need the readonly and options declared as per MS Arcticle 209953