SoloCodigo

*Declaración de variables
Dim Rs As New ADODB.Recordset
Dim Rpt As CRAXDRT.Report ' Guardamos el reporte
Dim cr As New CRAXDRT.Application ' Conexión con Crystal report


*Generamos una consulta con una Sql.
*La sql debe de ser igual que el origen que tiene nuestro reporte pero con los parametros que deseemos.


  Set Rs = DB.Execute(StrSql)
'*Nos conectamos con Crystal Reports.
   Set Rpt = cr.OpenReport("ruta y nombre.rpt")

   CrInforme.ReportSource = Rpt
            CrInforme.ViewReport
'*le damos el origen de los datos.
        Rpt.Database.SetDataSource Rs

Espero que te valga

Hola, yo probe con las lineas explicadas y me da el siguiente error:

El Registro de TLV no es Valido.
Sabes  que significa...?

Te agradescere toda ayuda posible.
Gracias