find ud af om det r indtaste noget for idag

Jeg vil gerne hver morgen/dag tjekke om der er indtastet noget i tbl_Kasse for den givne kassedato hvordan går jeg det. jeg har prøvet med det her men det virker ikke så godt
--------------------------
Private Sub Form_Timer()
Dim rst As dao.Recordset
Dim varb As Variant

    Me.TimerInterval = 5000
Set rst = CurrentDb.OpenRecordset("tbl_kassen", dbOpenDynaset)

rst.FindFirst ("KasseDato=" & date)

If rst.NoMatch Then
MsgBox "Du har ikke indtastet Kasseoplysninger dette skal køres inden programmet kan anvendes"
Else
Me.TimerInterval = 0
End If
End Sub
------------------------