fejl med sql update

<%
if request.form("sendom") <> "" then
        Function fncTextChange(strText)
            strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"""","''")
            fncTextChange = Replace(strTekst,"'","''")   
            fncTextChange = Replace(fncTextChange,"  "," &nbsp;")
            fncTextChange = Replace(fncTextChange,">","&gt;")
            fncTextChange = Replace(fncTextChange,"<","&lt;")
            fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
            fncTextChange = Replace(fncTextChange,"å","&aring;")
            fncTextChange = Replace(fncTextChange,"æ","&aelig;")
            fncTextChange = Replace(fncTextChange,"ø","&oslash;")
            fncTextChange = Replace(fncTextChange,"Å","&Aring;")
            fncTextChange = Replace(fncTextChange,"Æ","&AElig;")
            fncTextChange = Replace(fncTextChange,"Ø","&Oslash;")
        End Function

    indhold = fncTextChange(request.form("info"))
    set MyConn = Server.CreateObject("ADODB.Connection")
    conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    conn = conn & "DBQ=" & server.mappath("negerh4x.mdb")
    MyConn.open conn
-> denne linie der er fejl i    sql = "UPDATE TAbout set info = '"&indhold&"', dato = '"&date()&"' where id = '2'"
    set rs = MyConn.execute(sql)
    set rs = nothing
    response.Redirect("about.asp")
end if
%>



Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.
/tr/opretadmin.asp, line 150


og har de ting i min database som jeg skal bruge. altså dato og info