Open database with password

[agust]

With VBA, I want to open database with password. How should I do that? I tried the following lines and the response is "Not a valid password"

Dim theDb As Database

DbFile = CurrentProject.Path & "\MyDatabase.mdb"
Set theDb = OpenDatabase(DbFile)