Strange Password Problem using DAO

I am trying to open an encrypted, password protected database.

I first password protected it my database.

My program opened the database fine.

Then I encrypted it.

after that my program tries to open the database and I get a wrong password error message but...

IT STILL OPENS THE DATABASE!!!???

whats wrong here?

here is my code:

Dim Pass As String
Pass = ";pwd=hurga"
Set WS = Workspaces(0)
Set DB = DBEngine.OpenDatabase("\\munichbdc01\temp\test\mdb\quotemainverschl.mdb", False, False, Pass)

I just figured it out:

It looks like you have to encrypt your database first and then set the password.

My DAO Code is working fine now. :)