Contar campos iguales de un Listview

[jeaguiar25]

Buenas noches, a ver si alguien me puede ayudar. Necesito cargar en listview con procedencias de usuarios, las que deben estar sin repetir (hasta acá lo hice). Pero a su vez quiero que aparezca en el listview el conteo de usuarios que vienen de la misma procedencia.

Ejemplo:

Tabla
Rojo
Rojo
Rojo
Blanco
Blanco
Azul
Verde

Listview
Rojo 3
Blanco 2
Azul 1
Verde 1

A quien tenga un momento para dedicarle a éste tema le dejo el código cómo lo tengo hasta ahora:

Código:

Private Sub Cargar_Listado_Click()

Me.ListView1.ListItems.Clear
Dim rsConsulta6 As ADODB.Recordset
Set rsConsulta6 = New ADODB.Recordset

Dim li As ListItem

rsConsulta6.Open "SELECT Procedencia  FROM Historial GROUP BY Procedencia", cnn, adOpenDynamic, adLockBatchOptimistic
While (rsConsulta6.EOF = False)
  
  Set li = ListView1.ListItems.Add(, , rsConsulta6("Procedencia"))

                    
rsConsulta6.MoveNext
Wend
'Aquí Sumo la Cantidad de lugares de Procedencia sin repetir
For i = 1 To ListView1.ListItems.Count
     Total = ListView1.ListItems.Count
Next
    TextTotal = Total
End Sub

Gracias!!!!

[ValentinoMolinari]

Deberías porbar contarlos por SQL y luego cargas los resultados en el listbox, me parece una mejor solución, abrazo