Tengo un formulario con un CRViewer en el que muestro un archivo rpt con el siguiente codigo:

Dim oApp As CRAXDRT.Application

Dim oReport As CRAXDRT.Report

Dim rs As ADODB.Recordset

Dim StrSql As String

    StrSql = "SELECT SKU, Descripción, Venta, Id FROM Productos WHERE ID>30"

    

  Set rs = New ADODB.Recordset

    With rs

        .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & DirectorioBase & "\" & Db_A_Name & ";Persist Security Info=False;jet oledb:database password= " & StrPass & ";\"

        .CursorType = adOpenStatic

        .CursorLocation = adUseClient

        .Open StrSql

         End With

       

    Set oApp = New CRAXDRT.Application

        Set oReport = oApp.OpenReport(App.Path & "\reporte1.rpt", 1)

           oReport.Database.SetDataSource rs, 2, 1

       

    CRViewer1.ReportSource = oReport

    CRViewer1.ViewReport

El problema es que sin importar que modifique, el reporte me sale con la totalidad de los registros, es decir, no me filtra segun los parametros que le indico en el SQL. Ya he desmarcado la opcion de guardar datos con el informe en crystal pero nada, no se me ocurre que otra cosa puedo hacer, asi que apelo a vuestro conocimiento para que me puedan orientar.