Mensaje enviado por "Johen Valera" <geormich@yahoo.com>

Saludos Juan Onorio, yo tuve el mismo problema yo genero màs de 30000 registros mensuales lo que hices fue crear un recordset a partir de una consulta con ADO, y luego le paso al crystal el recordset como origen de datos.

algo así
    Dim mConLocDatBase As New conDatBase 'conDatBase : es el dataenvironment que tengo con la consulta
    mConLocDatBase.comVisPedidos_all 10331 ' ejecuto la consulta con su respectivo parametro
    With mConLocDatBase
        If Not (.rscomVisPedidos_all.EOF Or .rscomVisPedidos_all.BOF) Then
            Screen.MousePointer = vbHourglass
            Report.Database.SetDataSource .rscomVisPedidos_all, 3, 1
            Report.ReadRecords
            CRViewer1.ReportSource = Report
            CRViewer1.ViewReport
        Else
            MsgBox "No Existen Datos", vbCritical + vbOKOnly + vbDefaultButton1
            Unload Me
        End If
    End With
Asi obtengo un buen generador de reporte con la velocidad del ADO