opdatering af dato felt

Hej

Jeg er ved at lave en side hvor man kan indtaste annoncer, når man opretter annoncer indsættes dagsdato aut. i access db (felt er kort datoformat). Jeg vil gerne have det således at man kan opdatere dato på ældre annoncer til dagsdato, men dette volder mig lidt problemer...

Jeg bruger nedenstående kode, håber her er en som kan hjælpe.


                <% if mode = "forny_annonce" then
               
                        'Tjecker om brugeren er logget ind
                        if session("brugernavn") = "" then
                            Response.Redirect("login.asp?mode=login")
                        end if
                       
                        'Henter annonce
                        Set rs = Server.CreateObject ("ADODB.Recordset")
                        rs.Open "SELECT * FROM annoncer WHERE annId = " & Request.QueryString("Id"), conn, 2, 2
               
                            'Opdaterer felterne
                            rs("Dato") = Server.HTMLEncode(Request("Dato"))
                            rs.update
                           
                        %>
               
           
                <input type="text" name="Dato" value="<%=Date()%>" size="20">
               

                <% Response.Redirect("login.asp?mode=annoncer") %>                            


                <% end if %>



Fejlen er:
Provider error '80020005'

Type mismatch.

/login.asp, line 1754

line 1754 er rs("Dato") = Server.HTMLEncode(Request("Dato"))