ارسال ركورد جاري adodc به كريستال ريپورت

[kiss_my_l0ve]

سلام اساتيد
ميخاستم راهنمايم كنيد چجوري ركوردي كه ميخواهم رو به كريستال ريپورت ارسال كنم
هر كاري ميكنم فقط ركورد اول رو نمايش ميده
راستي از اين دستور براي نمايش استفاده ميكنم


Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim crDbTab As CRAXDDRT.DatabaseTable

Set crRept = crApp.OpenReport(App.Path & "\Report\RptJoftGiri.rpt")
Screen.MousePointer = vbHourglass

CRViewer1.ReportSource = crRept
CRViewer1.ViewReport
crRept.DiscardSavedData
Screen.MousePointer = vbDefault

[kiss_my_l0ve]

كسي نيست جواب بده