Visual Basic - abrir B.D. con contraseña

Hola, alguien puede decirme como abrir una B.D. que tiene una contraseña, desde VB.

Tengo la siguiente instruccion pero no funciona.

Ejemplo mi clave de entrada es "principal"

y mi codigo esta asi

Set dbbase=opendatabase("c:\base.mdb",false,false,";pwd=principal;")

Y no lo hace en que estoy mal, por favor esto me urge, porque hay otra cuestion uso el contro Data y si la B.D. tiene clave no puedo acceder a ella y no puedo entonces usar el crystal porque no hay un enlace

Hola.
Pueba esto para abrir la base de datos con contraseña.

Data1.DatabaseName = "C:\BaseDeDatos.mdb"
Data1.Connect = ";pwd=" & "contraseña"
Data1.RecordSource = "Select * from BaseDeDatos order by Nombre"
Data1.Refresh

Saludos