Como agrupar datos en un listview en visual basic 6.0

Hola., estoy haciendo un programa en visual basic 6.0 en un formulario tengo un listview en donde me muestra la información que tengo en una base de datos, pero en ese listado tengo varios datos repetidos pero quiero que de todos esos datos repetidos me agrupe a uno solo y me sume las cantidades que tiene cada dato, este es mi código.

rst.Open "SELECT nocorte,fecharecibo,nitmedico,nombremedico,honorarios,equipo,honorarios,honorarios," & _
"estado FROM honorarios WHERE fecharecibo BETWEEN '" & Format(mskfechai, "yyyy-mm-dd") & "' AND '" & Format(mskfechaf, "yyyy-mm-dd") & "'", con, adOpenDynamic, adLockBatchOptimistic
With rst
If (.BOF And .EOF) Then
MsgBox "No hay Datos para mostrar", vbInformation, "Honorarios"
Else
listado.ListItems.Clear
Do While .EOF = False
Set LST = listado.ListItems.Add(, , rst(0))
LST.SubItems(1) = Format(rst(1), "dd/mm/yyyy")
LST.SubItems(2) = rst(2)
LST.SubItems(3) = ""
LST.SubItems(4) = Format(rst(4), "#,##0.00;(#,##0.00)")

Como hago para adjuntar los datos repetidos y que me muestre solo 1 de todos esos datos repetidos.

Añade tu respuesta

Haz clic para o