Sorterings funktion i Mdb's

okay har brugt en lidt mere træls metode..
men den virker.. vha sammenligning..

her er lidt kode.

'*****************************************check if there r games today
'move db first
If game.Recordset.BOF = False Then
  game.Recordset.MoveFirst
End If
'get todays date from previous
Dim idag As String
idag = DTP_todaysdate.Value
'compare with db
Dim noOfGamesToday As Integer
noOfGamesToday = 0
Do Until game.Recordset.EOF = True
  If idag = game.Recordset("gameDate") Then
      noOfGamesToday = noOfGamesToday + 1
  End If
game.Recordset.MoveNext
Loop
'display results
lbl_gameToday.Caption = noOfGamesToday