Count Occurrences Of Random Entries

I need to loop the recordset and count the occurrences of each entry. The entries will always be numbers.

If entry = 1 then count(1)=count(1)+1
If entry = 2 then count(2)=count(2)+1
...
If entry = 100 then count(100)=count(100)+1

The problem is that there could be 1-100 (or more) different answers stored in the field so coding 100 IFs will work (as long as noone needs to enter 101) but seems silly. How do I create the array above to look something like:

While...
<%
strField = (Recordset1.Fields.Item("Field").Value)
CntNumInField(strField)=CntNumInField(strField)+1
%>
WEND

The above code returns a "type mismatch"