Incluir password de access 2000 en el código de VB para

[Marcelo1]

Hola:
Cómo incluyo la password de la base de datos access 2000 en el códogo de VB6.0 para pedir un informe, el código es el siguiente:

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

Si tenés instalado access 2003 el código es así:
"expression.OpenCurrentDatabase(filepath, Exclusive, bstrPassword)", dónde "bstrPassword" es la la password de la BD, pero si tenés instalado access 2000 este parámetro no aparece, no sé si habrá otra manera ó si falta instalar algo.

Saludos y gracias