Espero que te sirva de algo.
Para abrir la base de datos con contraseña desde visual basic:
Dim r,pwd as string
r=(";database=nombrebase.mdb;pwd=123")
set base=opendatabase("C:\nombrebase.mdb",true,false,r )
pwd es la contraseña, en este caso 123,que hayas establecido tú en access.
Espero que te sirva de ayuda,si tienes alguna duda preguntame,ok??