Crystal Report Viewer for MS Access Database (Password Protected)

Private Sub Report(ByVal rptname As String) <br>
Dim crxApplication As New CRAXDRT.Application<br>
Dim Report As CRAXDRT.Report <br>
Dim a As Integer<br>
Set Report = crxApplication.OpenReport(App.Path & rptname, 1)<br>
For a = 1 To Report.Database.Tables.Count<br>
 Report.Database.Tables(a).Location = App.Path & "\database\XXX.mdb"<br>
Report.Database.Tables(a).SetLogOnInfo App.Path & "\database\XXX.mdb", "XXX.mdb", "admin", "pwdhere"<br>
Next<br>
Set frmReport.report = Report<br>
frmReport.Show vbModal, Me <br>
End Sub<br>