Password protected db

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.

Juan

this should work

Code:

---

'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")

---

Yes. It works very fine.

Thanks.