how to bind password protectec access to cr10 using vb6

[muddasirmunir]

i want to use a password protected msaccess database with crytal reprot 10 and vb6 .
i had implemented the following code

- Add to Reference
'1- Crystal Reports ActiveX Designer Run Time Library 10
'2- Crystal ActiveX Report Viewer Library 10
'COMPATIBLE VERSION = CRYSTAL REPORT 10
 
Public CRReport As New CRAXDRT.Report
Public CRApp As New CRAXDRT.Application
 
Public Sub CrysRpt(CrytalOCX As Object, RptPath As String, DBPath As String, DBPassword As String)
 
'-Assign Path to Report
Set CRReport = CRApp.OpenReport(App.Path & RptPath)
 
On Error GoTo ExitLabel
 
With CRReport '-// Log-On to Database with Password Protect
 
'-//====================================
.Database.Tables(1).SetLogOnInfo App.Path & DBPath, App.Path & DBPath, "", DBPassword
 
End With
 
With CrytalOCX
 
'Set the source of Report viewer to the path of Report you made
.ReportSource = CRReport
 
'View/Display Report
.ViewReport
 
End With
 
CRApp.CanClose
 
Exit Sub
 
ExitLabel: MsgBox Err.Number & " " & Err.Description, vbCritical
 
End Sub

what i am doing in making a module and starting my programe with sum main() and writing the above code in module.and calling it by followig the code

Call CrysRpt(CrytalOCX As Object, app.Path & "\test1.rpt", app.Path & "\Myproject.mdb","abc123" )

but getting error I am facing difficulty how to call this code.so how can i call this.what should i had to write.

[muddasirmunir]

I got the mistake i am making.so does not need any more assistance in it.

Thanks