Visual Basic - Ayuda con DataGrid!!!

Hola gente, buenas tardes... le comento mi problema, a lo mejor alguien me puede ayudar... el tema es el siguiente....
Tengo un Datagrid cargado con x cant. de registros...yo lo que necesito es contar cuantos registros hay de cada tipo segun una columna... por ej.

la Columna1 tiene como nombre "Codigo" y tiene cargado estos codigos en el datagrid:
CODIGO
41015
41020
41022
41015
41015
41030
41022

lo que necesito es contar cuantos hay de cada uno y ponerlos en un label... por ej.

41015 - label1.caption = 3
41020 - label2.caption = 1
41022 - label3.caption = 2
41030 - label4.caption = 4

Espero que me puedan ayudar... desde ya Muchas Gracias!!!

Primero se abre la Base de Datos (Bdd)
set Bdd=Opendatabase+ camino etc
Obtenemos una Selección de registros ordenada
Set Mireg=Bdd.Openrecordset ("Select * From Tabla order By Codigo")
Dim Actual as string, N as integer
Actual=Mireg!Codigo
N=0
Do Until Mireg.Eof
Do While Mireg!Codigo=Actual
N=n+1
Mireg!Movenext
Loop
Text1="El Código " & Actual & " se repite " & N & " veces"
msgbox("")
Actual=Mireg!Codigo
N=0
Loop

Bdd.close

Mas o menos debe ser asi, puede que haya resuelto tu problema, aunque tu problema de verdad es otro.

SELECT COUNT(*), Codigo FROM Tabla GROUP BY Codigo

Te devuelve los que hay de cada tipo.

Saludos,