Visual Basic - Pregunta sin solución

Hola Por Favor alguien que me ayude, lo que pasa es que abro un informe de access desde visual, pero el problema surge cuando le coloco clave a la base de datos ya no me deja abrirlo.
Si alguien tiene un codigo que haga este procedimiento o sepa de alguna ayuda se los agradeceria mucho.

Hola, espero que te sirva lo siguiente (Lo aprendí en otro foro):

'A nivel de módulo:
Public mWS As Workspace
Public mBase As Database

' En el procedimiento donde abres la base:
Dim iPathBase as String

iPathBase= App.Path & '... pones el nombre del archivo de la base con la ruta correcta

Set mWS = DBEngine.Workspaces(0)
Set mBase = mWS.OpenDatabase(iPathBase, False, False, ";pwd=contraseña")

' Reemplaza la palabra contraseña por la contraseña verdadera

Y ojito a la cuestión de seguridad!!!

todo lo q pones entre comillas se ve con un editor hexadecimal, así q se vería la clave de la Base de Datos.

Proba con esto:

Public Function CONECCION() As Boolean
'On Error GoTo err

levantar_path_de_base
sBase = path & "tsd.mdb"

Set cn = New ADODB.Connection
cn.Mode = adModeReadWrite
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase & ";" & _
"Jet OLEDB:Database Password=xxxx;User ID=Admin"
CONECCION = True
Exit Function
err:
resp = MsgBox(" Hubo un Error al querer conectarse con la base " & path & "tsd.mdb" & Chr(13), vbCritical, " ERROR DE CONEXION ")
CONECCION = False
End Function