Crystal Report - Ayuda

Estimados

Soy principiante tanto en programacion VB6 y crystal reporte 7.0 (ver no actualizado) me dejaron trabajar un programa de otro compañero el cual ejecutar el crystal report por local ahora he tratado de resumirlo pero quiero que todo de visualize en un solo reporte.

Aqui la programación donde enlaza al Crystal pero de uno en uno ahora deseo que sea segun grupo.

Private Sub cmdPrevio_Click()
TDBGrid1.MoveLast
If x.Count(1) = 0 Then
MsgBox "No Hay Datos Seleccionados", vbInformation + vbOKOnly, "Imprimir Manifiesto"
Else
'Call ImprimirDestino(TDBGrid1.Columns(0).Value, 0)
For i = 0 To x.Count(1) - 1
If x(i, 1) = -1 Then
Call ImprimirDestino(x(i, 0), 0, x(i, 2), x(i, 3))
End If
Next i
End If
End Sub

mail : [email protected]

Saludos