درخواست کمک برای حل مشکل گزارش کریستال

[toytown]

سلام دوستان

این کد گزارش گیری برنامه منه لطفا بگید مشکل از کجاست




Private Sub Cmd_rep_Click()
Dim crApp As New CRAXDDRT.Application
Dim crRept As New CRAXDDRT.Report
Dim crDBTab As CRAXDDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\Reports\rep.Rpt")


crDBTab.ConnectionProperties.Item("Data Source") = App.Path & "\DataBase\bank.mdb"

CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData

End Sub