Visual Basic - Abrir acces con contraseña

Quiero que desde un programa VB6 se abra un acces que tiene contraseña. Pero no quiero obtener un acceso al acces para manejarlo desde VB6, osea hacer esto:
Set bd = OpenDatabase(basedatos.mdb, False, False, ";pwd=contrasenya")
sino algo que al estilo como hace ShellExecute:
ShellExecute(hwnd, "open", "basedatos.mdb", "", "", vbNormalFocus)
pero que se le pueda dar desde VB6 la contrasenya para que al abrirse el acces no la pida.

Gracias por adelantado.