questo è quello ke ho trovato, ma nn so se ti possa servire, ciao
codice:
'Create Temp Storage
Dim strSelect As String
'Create Report instance
Dim Report As New UIBenSummrpt
'Set Mouse Pointer to busy
Screen.MousePointer = vbHourGlass
'Set Crystal Reports smartviewer source to report
CRViewer1.ReportSource = Report
'Reset Reports selection criteria
Report.RecordSelectionFormula = ""
'Create a string for selection criteria
strSelect = "{ado.Client}= '" & strClient & "' _
AND " & "{ado.Year}= '" & strYear & "'"
'Set Report's selection criteria
Report.RecordSelectionFormula = strSelect
'Display Report
CRViewer1.ViewReport
'Reset the mouse pointer icon
Screen.MousePointer = vbDefault