Sumando total de registros agrupados

[Bravenap]

Lo he reestructurado un poco para que quede algo más claro. Sería más o menos así:

<%
'Creamos la conexión a la base de datos
set cnn = CreateObject("ADODB.Connection")
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/paginar.mdb") & ";Persist Security Info=False"

'Creamos las dos consultas
SQL = "SELECT UnivCol.Univ, Count(Registro.Usuario) AS CuentaDeUsuario FROM UnivCol INNER JOIN Registro ON UnivCol.IdUniv = Registro.Univ GROUP BY UnivCol.Univ"
SQL_total = "SELECT * FROM UnivCol"

'Creamos los dos recordset para cada coonsulta
set rs = CreateObject("ADODB.Recordset")
set rs_total = CreateObject("ADODB.Recordset")

rs.Open SQL, cnn, 3, 1
rs_total.Open SQL_total, cnn, 3, 1

'Guardamos en la variable total el número de registros
total=rs_total.RecordCount
......