Contare e suddividere record per colore

[viki1967]

Scusate l'amnesia... conto i records da una tabella di access:

Set rs = server.CreateObject("ADODB.Recordset")
vSQL = "select * from cond where id = "&id&" order by cond asc"
rs.Open vSQL, miaConn, 1, 3
miaConn.execute(vSQL)

nRec = rs.RecordCount

ed ottengo il numero totale dei record; questi record però possono contenere nel campo "colore" un valore che può essere GIALLO, ROSSO o VERDE... come posso ottenere:

1)il numero dei record GIALLI
2)il numero dei record ROSSI
3)il numero dei record VERDI

:master: Grazie e buon anno a tutti!!!!

[viki1967]

ho provato così, ma non funge:

 sSQL = "select top 1 count (*) as conta , campo from tbl group by campo order by count (*) desc" 
Set rs = server.CreateObject("ADODB.Recordset")
rs.Open sSql, miaConn, 1, 3 
miaConn.execute(sSQL)

campo = rs("campo")
response.write campo

:master: