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