Password Access 2000 from vb6

[Zano]

i have a project in vb6 where i print my report of access
2000, but i have a problem with password of access 2000.
Every time that i print my report from vb , i see the
form message with the requeste password of access 2000
( my databse is protected with password). how make to
transfer the password with vb6??. For print my report
i have opned a access.application.
Dim prtfiliale As New ACCESS.Application
Dim str As String ' value for query in access2002
str = "CODFIL =" & fil
With Prtfiliale

.OpenCurrentDatabase FileName

.DoCmd.OpenReport nomeReport, acViewPreview, , str
.DoCmd.PrintOut
.CloseCurrentDatabase
End With
Set PrtAccess = Nothing
Exit Function

Thank you and by from zano