Como incluir la password de la base access en el código de VB

ruso1
20 de Enero del 2005
Cómo incluyo la password de la base de datos access 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