Versuch es mal so:

Code vb:
1
Set db = OpenDatabase OpenDatabase("d:\Documents and Settings\rschaedl\My Documents\Flopkunden Datenbank\Flopkunden V1.2.mdb" ;PWD=DEINPASSWORT")

Oder lies das hier mal: http://vb-tec.de/accpwd.htm