Opening a database with password on VB (DAO)

[Marcogol]

ok i gave a password for my access database, now when i open it in VB, it says invalid password, what could be my code to open the password?

set db = DBEngine.OpenDatabase(App.Path & "\database.mdb")
set rs = db.openrecordset("table")