>
>Try this line.
>Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\test.mdb", False, True, "MS Access;PWD=test")

No, that doesn't work either. However this does:

db = DBEngine.OpenDatabase(App.Path, dbDriverComplete, False, ";pwd=password")