Acceso a BD protegida por MSHFlexGrid

[Romssel]

Saludos!!!..... tengo un problema...

Tengo por ejemplo MSHFlexgrid en el formulario, donde se presentan los datos de la base de datos, el problema es de q esa base de datos la tengo protegida por contraseña, entonces cuando trato de accesar a ese formulario no me deja, me marca error debido a q no eh puesto la contraseña de dicha base de datos, y le eh buscado mucho y no se como hacerle para q me deje accesar.

Se q se le tiene q poner la instruccion donde pones la contraseña, ejemplo....


Origenbd = App.Path & "\prueba.mdb"
Set DB = OpenDatabase(Origenbd, False, False, "MS ACCESS; pwd=prueba")


esta parte por ejemplo es cuando inicio el programa, q me permita accesar al mismo por medio de un usuario y una contraseña y accesa satisfactoriamente.

El caso q si pongo esto mismo en el form load donde voy a editar el MSHFlexgrid, no me lo permite, me marca el error en el módulo y me dice:

"NO ES UNA CONTRASEÑA VALIDA"

Incluso en ese modulo es donde tengo lo siguiente....

With cnn
.CursorLocation = adUseClient
.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\prueba.mdb" & ";Persist Security Info=False"
End With

y es ahi en el modulo donde me marca el error entonces q instruccion le tengo q poner para poder accesar a la base de datos automaticamente cuando le pongo la contraseña cuando inicio el programa????

Espero me puedan ayudar......... de todos modos para cualquier aclaracion sobre mi duda, mi correo es marcoman9-arroba-hotmail.com.
Gracias!!!