Incluir password de access en el código de VB6.0

[marcelo1]

Cómo incluyo la password de la base de datos access97 en el códogo de VB6.0 para pedir un informe, el código es el siguiente, pero con este código primero me solicita la password y después me muestra el informe.

Private Sub abreReporte(nombreRepo As String)
On Error GoTo final
Dim infacc As New Access.Application
infacc.OpenCurrentDatabase App.Path & "\Sistema de Gestion de Reclamos.mdb"
infacc.DoCmd.OpenReport nombreRepo, acViewPreview
infacc.Visible = True
Exit Sub
final:
infacc.Quit acQuitSaveNone
Set infacc = Nothing
Exit Sub
End Sub

Saludos

[jrp01]

Aqui esta:

http://msdn.microsoft.com/library/de...ntDatabase.asp

[marcelo1]

Hola: gracias por el link pero el problema es que el parámetro para la password de la BD (bstrPassword) sólo aparece si tenés instalado el access 2003, en mi caso es para access 2000 y este parámetro en el código de VB no aparece. Nosé si habrá otra forma de incluir la password.

Saludos