CReports 9 y VB 6... como ...

[xochitemol]

este codigo sacar los registros de un rango de fechas me imagino que es algo de lo que tu quieres ahy te va el codigo.
'***********************************

Dim Fecha1 As Date
Dim mflgContinuar As Boolean
Dim Fecha2 As Date
Dim crApp As CRAXDRT.Application
Dim reporte As CRAXDRT.Report
Dim Recset As ADODB.Recordset
Set crApp = New CRAXDRT.Application
mflgContinuar = True '
Set reporte = crApp.OpenReport(App.Path & "\reportes\liberadas.rpt", 1)
conexion 'modulo de conexion a la base de datos
'Obtiene los datos de la tabla
Set Recset = New ADODB.Recordset
Recset.Open "SELECT *FROM liberadas WHERE fecha BETWEEN #" & Finicio & "# and #" & Ftermino & "# order by fecha,finicio,ftermino", cn, adOpenDynamic, adLockReadOnly
reporte.Database.SetDataSource Recset, 3, 1
'Establece el reporte a mostrar del control Viewer
reporte.DiscardSavedData
CRV.ReportSource = reporte
CRV.ViewReport
'Elimina la instancia del reporte para eliminar el bloqueo del archivo RPT
Set reporte = Nothing
errores:
If Err.Number = -2147217865 Then
MsgBox "Error Fatal la tabla o consulta no fue localizada" & vbCrLf & "pongase en contacto con el administrador del sistama", vbCritical
Exit Sub
End If
If Err.Number > 0 Then
MsgBox Err.Description, vbCritical
Exit Sub
End If
If Err.Number = -2147206461 Then
MsgBox "Error fatal el reporte solicitado no existe" & vbCrLf & "pongase en contacto con el administrador del sistema" & vbCrLf & "o restáurelo del disco de instalación ", vbCritical
Exit Sub
End If
'*********************
mira yo tengo un form con un control viewer y le paso los datos como parametros y llamo a funciones solo adaptalo ok