چگونگي لود گزارش در كريستال ريپورت

[Shahabvb6]

با سلام خدمت اهل فن
من يك پروژه وي بي دارم و گزارشاتم رو با كريستال 9.2 نوشتم
وبراي لود گزارش از كد زير استفاده كردم
Sub PrintReport()
Dim Password As String
Dim crxReport As CRAXDRT.Report
Dim crxTable As CRAXDRT.DatabaseTable
Dim mcrxApplication As New CRAXDRT.Application

Set crxReport = mcrxApplication.OpenReport("F:\Visual Basic 6\CrLearn\Report.rpt", 1)
Password = "138"


CRViewer91.ReportSource = crxReport

For Each crxTable In crxReport.Database.Tables
crxTable.SetSessionInfo "", Chr(10) & Password
Next crxTable

CRViewer91.ViewReport

End Sub
برنامه جواب داد اما حالا يك مسئله من اگه شرطهاي sql رو بكار ببرم يعيني گزارشاتم رو فيلتر كنم چطوري عمل كنم تا گزارشاتم رو بگيرم
ممنون