Come aro con DAO un Database protetto da Password?

Ho provato così, ma mi da errore di password sbagliata (ovviamente è giusta)

codice:
Set DB = OpenDatabase(App.Path & "\Miodatabase.db", , ,"ODBC;PWD=MiaPassword")