Cargar un Listview agrupando registros y contando cantidades

Buenas noches expertos. A ver si alguien me puede brindar una mano. Lo que deseo es cargar un listview agrupando registros repetidos, pero a su vez que en una columna a su lado que me cuente la cantidad deseada.

Ejemplo

Registro

Verde

Verde

Verde

Azul

Azul

Negro

Listview

Verde 3

Azul 2

Negro 1

Este es el código cómo lo tengo hasta ahora, cómo más debería seguir?

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

De antemano, muchas gracias!!!