Visual Basic - Agrupar DATOS y sumar por grupos mshflexgrid

Private Sub ReconecXion2()  'Genero la conexión y la consulta la cual traigo con rango de fechas (Desde la fecha que esta en Text1 'Hasta la Fecha que esta en Text2 

On Error GoTo m

Set BD = New ADODB.Connection

Set rs1 = New ADODB.Recordset

rs1.CursorLocation = adUseClient

Call Mybase

rs1.Open "select ruta,FECHA,COBRO,PRESTAMO,UTILIDAD,GASTOS,RETIROS,INGRESOS,EFECTIVO,BASE,CAJA,SUMA_SALD,CAPI_TOTAL,DESCUADRES,DESCUENTOS,CAPI_FINAL,ABONOS,PROMEDIO,USUARIO from REPOrTES where  fecha >= #" & _

liquidar.Text1.Text & "# AND Fecha <= #" & liquidar.Text2.Text & _

"#  order by RUTA asc,FECHA asc", BD, adOpenKeyset, adLockOptimistic, adCmdText

Exit Sub

m:

MsgBox Err.Description, vbCritical, "Modulos"

End Sub

Private Sub Combinar_Filas()  ' Combino la primera fila

 ReconecXion2

  With LQ ' lq es el nombre sexy de la grilla xd

         .SelectionMode = flexSelectionByRow

         .AllowUserResizing = flexResizeColumns

         ' -- Añade el texto de los encabezados

Set .DataSource = rs1

        ' -- Agrupa y Combina la primer columna

        .MergeCells = flexMergeRestrictColumns

        .MergeCol(0) = True

End With

End Sub

Private Sub Crear_totales() '

LQ.AddItem "Totales" & vbTab & _

"-------------->" & vbTab & _

suma1 & vbTab & _

suma2 & vbTab & _

suma3 & vbTab & _

suma4 & vbTab & _

suma5 & vbTab & _

suma6 & vbTab & _

suma7 & vbTab & _

suma8 & vbTab & _

0 & vbTab & _

0 & vbTab & _

0 & vbTab & _

suma9 & vbTab & _

suma10 & vbTab & _

"--------------" & vbTab & _

"--------------" & vbTab & _

"--------------" & vbTab & _

"--------------"

call Color_descuadres

End Sub

Private Sub SUMITAS()

On Error GoTo m

With rs1

.MoveFirst

Do Until .EOF

suma1 = suma1 + .Fields(2)

suma2 = suma2 + .Fields(3)

suma3 = suma3 + .Fields(4)

suma4 = suma4 + .Fields(5)

suma5 = suma5 + .Fields(6)

suma6 = suma6 + .Fields(7)

suma7 = suma7 + .Fields(8)

suma8 = suma8 + .Fields(9)

suma9 = suma9 + .Fields(13)

suma10 = suma10 + .Fields(14)

.MoveNext

Loop

End With

rs1.MoveLast

Exit Sub

m:

End Sub