Recuperar nombres y contar registros de otra tabla

[larrea]

Hola
El problema que tengo es el siguiente:
Tengo que abrir una base en la que existen dos tablas.
Una solo contiene los nombres de los grupos
y la otra contiene los trabajos a realizar y el nombre del grupo que los realiza.
Pues bien, de la primera tabla tengo que extraer los nombres y guardarlos en una variable de modo que según los lea los separe por comas (esta primera parte la tengo ya resuelta)
El resultado de esta variable es grupo1,grupo2,grupo3 etc
y la segunda, es la que no consigo que funcione.
Esta segunda rutina estaría dentro del loop de la primera y debería recuperar el nombre entregado por la primera abrir la segunda tabla y contar cuantos registros tiene cada grupo (Buscar por nombre y contar el número de registros existen por nombre)
El resultado de la variable que contaría los registros seria algo así 10,5,6 etc
El código que estoy utilizando es el siguiente:
---------------------------------------------------------------------
Dim Conexion,registros,contador,Temp
Set Conexion=Server.CreateObject("adodb.connectio n")
Set registros=Server.CreateObject("adodb.recordse t")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("../../base/limpieza.mdb")

Set registros = conexion.Execute("SELECT * FROM grupo ORDER BY grupotrabajo")

Do While Not registros.EOF
NombreGrupo=NombreGrupo& registros.Fields("grupotrabajo").Value&a mp;","
NombreGrupoContador= registros.Fields("grupotrabajo").Value
--------------------------------------
La variable NombreGrupoContador almacena en cada ciclo un nombre distinto y seria de donde recuperaríamos los nombres.

AQUÍ ESTARÍA EL CÓDIGO PARA RECUPERAR EL NUMERO DE REGISTROS PARA CADA NOMBRE
--------------------------------------
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing

Un Saludo