ReDim nCount(80) As Long
Dim i As Long
Dim nVal As Long
 
' Recordset durchlaufen und Zahlen zählen
oRs.MoveFirst
Do
  For i = 1 To 5
    nVal = Val(oRs("z" & CStr(i))
    nCount(nVal) = nCount(nVal) + 1
  Next i
Loop Until oRs.Eof
 
' Ausgabe der Zahlen
For i = 1 To 80
  Debug.Print "Zahl " & Cstr(i) & " ist " & CStr(nCount(i)) & " mal" & _
    "gespeichert."
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de