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!!!