Com'è la struttura della tabella nel database? Potresti risolvere tutto anche con una semplice query... Nella peggiore delle ipotesi, invece, crei un array di 90 interi, poi passi tutti i record uno alla volta ed incrementi di uno l'indice di array relativo, una roba tipo questa:

codice:
Dim conteggio(90) As Integer

Do Until rs.EOF
    conteggio(rs("Numero1")) = conteggio(rs("Numero1")) + 1
    conteggio(rs("Numero2")) = conteggio(rs("Numero2")) + 1
    conteggio(rs("Numero3")) = conteggio(rs("Numero3")) + 1
    conteggio(rs("Numero4")) = conteggio(rs("Numero4")) + 1
    conteggio(rs("Numero5")) = conteggio(rs("Numero5")) + 1
    conteggio(rs("Numero6")) = conteggio(rs("Numero6")) + 1
    rs.MoveNext
Loop