sletning efter dato

Hej ...

jeg sidder med en kalender funktion. Kalenderen skal automatisk slette poster som er for gamle. Det vil sige af ældre dato en nu.
Jeg har skrevet følgende:

<%
        Session.LCID = 1030
       
        dim strConn
        strConn=\"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\"&Server.MapPath(\"../admin\") & \"/manager.mdb\"
       
        \'opretter forbindelsen til databasen
        dim dbConnection
        set dbConnection = Server.CreateObject(\"ADODB.Connection\")
        dbConnection.Open strConn
        \'dim dato
        \'dato = now - 1
       
        dbConnection.Execute \"DELETE FROM tblKalender WHERE dato < #\" & dato & \"#\"
        dim rs
        set rs = Server.CreateObject(\"ADODB.Recordset\")
        dim sql
        sql = \"SELECT * FROM tblKalender ORDER BY dato, klokken\"
        rs.Open sql,dbConnection,1,1
%>

Men af mærkelige årsager virker det som om at den sletter hvad den har lyst til. Jeg kan få en post i databasen. Vil jeg tilføje en ny som f.eks. 05-05-2002, så sletter den posten så snart jeg vil se siden.

Kan nogle hjælpe?