[VB] passare valori [CR]

[gbv]

Ciao a tutti.
Ho il seguente problema...
Come faccio a passare i valori filtrati da una query (vb)
al crystal report?

ho provato cosi....

Private Sub btnShowReport_Click()
On Error GoTo Show_ERR
Dim var_cliente, var_gara As String

Dim strConnection As String

strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & txtDatabase.Text
Dim cn As New ADODB.Connection
cn.Open strConnection

Dim sql As String
var_cliente = "xxxx"
var_gara = "xxxx"
sql = "select cod_articolo ,cliente ,gara ,gruppo ,descrizione ,n_serial from scarico where cliente like '" & var_cliente & "*' and gara like '" & var_gara & "*' order by descrizione"


Dim rs As New ADODB.Recordset
rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
'adOpenStatic

Dim frm As Form
Set frm = New frmPreview
Set frm.rsReport = rs

frm.ReportPath = App.Path & "\serialigare.rpt"
frm.Show vbModal

Set frm = Nothing
rs.Close

Exit Sub

Show_ERR:
MsgBox Err.Description, vbCritical
End Sub

Public ReportPath As String
Public rsReport As ADODB.Recordset

Dim Report As CRAXDRT.Report
Dim CRApp As New CRAXDRT.Application

Private Sub Form_Load()
On Error GoTo Load_ERR

Set Report = CRApp.OpenReport(Me.ReportPath)
Report.Database.SetDataSource Me.rsReport, 3
Report.DiscardSavedData
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Exit Sub

Load_ERR:
MsgBox Err.Description, vbCritical
End Sub

Private Sub Form_Resize()
On Error Resume Next
CRViewer1.Move 75, 75, Me.ScaleWidth - 150, Me.ScaleHeight - 150
End Sub

il report visualizzato non è filtrato dalla query impostata.
Mi visualizza tutti i record

Ringrazio anticipatamente

[gbv]

up

[gbv]