Password ved åbning af db

Jeg har nedenstående kode i et word-dokument.

Dim ac As New Access.Application
ac.OpenCurrentDatabase "S:\933.mdb", False
ac.Run "UpdateAll", 4
ac.CloseCurrentDatabase

Det virker principelt godt nok, men der er et problem.

Når databasen åbnes promptes brugeren for et password (dvs. kodeordet til databasen).  Problemet opstår så, hvis brugeren skifter væk fra vinduet mens password dialog-boksen er åben. Man kan ikke derefter skifte tilbage til dialog-boksen. Man bliver nødt til at lukke word vha. ctrl-alt-del -> jobliste -> afslut job.

Kan man enten ligge password'et ind i koden eller på anden måde løse problemet.