Password protected db

[Juan]

Hello

How can I open a Access database that is password protected from Access?

I use this code to open a no password protected database.

Set DB = MyWs.OpenDatabase(App.Path & "\Juan.mdb")

Thanks.

[Gary.Lowe]

Juan

this should work

'for database with user level security
DBEngine.SystemDB = "MyMDW"
Set MyWs = DBEngine.CreateWorkspace("", "Username", "Password")

Set DB = MyWs.OpenDatabase(App.Path & "\Juan.mdb") 

'Database password protected
Set DB = DBEngine.OpenDatabase(App.Path & "\Juan.mdb", False, False, _
";pwd=password")

[Juan]

Yes. It works very fine.

Thanks.