Tælle antal forkomster i Record Set

Hej

Jeg vil gerne have en løkke som kan tælle hvor mange gange en forkomst er i en kolonne med recordset.
Jeg har nedestående kode, hvis nogle har forslag .. så glæder jeg mig til at høre fra jer.

strSQL = "SELECT Klub FROM Kampe ORDER BY Klub desc "

Rs.Open strSQL, DSN, 1

Do While Not Rs.EOF
Klub = rs("Klub")
If rs("Klub") = Klub or Not Rs.EOF Then
  Do
    Antal = Antal + +1
    Rs.MoveNext
  Loop While rs("Klub") = Klub Or Rs.EOF
Else
  End If
Loop

Variablen Antal er hvor mange gange en forkomst er der.