Crystal Report - hacer consultas con cristal

no se como realizar mas de dos consultas en visual basic 6.0 utilizando cristal reports 8.5...agradecere tu ayuda

no se si es esto lo que necesitas:

Private Sub btnAceptar_Click()
queryA = ""
Reporte4.ReportFileName = CurDir + "\Reportes\RepAagencias.rpt"
If opFRecibido.Value Then
queryA = "Select Remesa.*, Agencia.* from Remesa " + _
" INNER JOIN Agencia ON Remesa.Id_Agencia = Agencia.Id_Agencia " + _
" WHERE Remesa.Fecha_Recibido>='" & Format(dtDel.Value, "dd-mm-yy") & _
"' and Remesa.Fecha_Recibido<= '" & Format(dtAl.Value, "dd-mm-yy") & "'"
Reporte4.Formulas(0) = "Tipo= 'Por Fecha de Recibido'"
End If
If opFRemesa.Value Then
queryA = "Select Remesa.*, Agencia.* from Remesa " + _
" INNER JOIN Agencia ON Remesa.Id_Agencia = Agencia.Id_Agencia " + _
" WHERE Remesa.Fecha_Remesa>='" & Format(dtDel.Value, "dd-mm-yy") & _
"' and Remesa.Fecha_Remesa<= '" & Format(dtAl.Value, "dd-mm-yy") & "'"
Reporte4.Formulas(0) = "Tipo= 'Por Fecha de Remesa'"
End If
Reporte4.Formulas(1) = "fechadel= '" & Format(dtDel.Value, "dd-mm-yyyy") & "' "
Reporte4.Formulas(2) = "fechal= '" & Format(dtAl.Value, "dd-mm-yyyy") & "' "

If cbAgencias.Enabled Then
queryA = queryA + " and Agencia.Descripcion = '" & Trim(cbAgencias.Text) & "'"
End If

Reporte4.SQLQuery = queryA
Reporte4.Action = 1

End Sub

Ahora bien si son 2 reportes distintos debes de poner otro control de Crystal en tu forma. Espero haber podido ayudarte con esto.