Lite problem

Jag har denna kod:

Dag = Day(date)
If Dag = 1 And Application("tiden") <> date Then
    Set RS = Conn.Execute("SELECT * From topplista")
        Do Until RS.EOF
           Conn.Execute("Update topplista Set Inp=0, Utp=0,InUt=0")
        RS.MoveNext
        Loop
    RS.Close
    Set RS = Nothing
Application("tiden") = date
End If

Men den nollställer hela tiden när det är den 1:a
Vad ska jag ändra? Hur ska det vara istället!?

/Åsa

Dag = Day(date())
If Dag = 1 And cdate(Application("tiden")) <> date() Then
   Conn.Execute "Update topplista Set Inp=0, Utp=0,InUt=0"
   Application("tiden") = date()
End If

Tackar! :)