Underlig fejl

Hej!

Hvordan får jeg fikset denne kode:

<%
    \'Change this to reflect the name of your database
    DBName = \"db/news.mdb\"
   
    \' Database connection info
    Dim ANRec
    Dim ANConn
    Dim strANConn
    strANConn = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Server.MapPath(DBName)
    Set ANConn = Server.CreateObject (\"ADODB.Connection\")
    Set ANRec = Server.CreateObject (\"ADODB.Recordset\")
    ANConn.Open strANConn
    ANRec.Open news, ANConn, adOpenDynamic, adLockPessimistic, adCmdTable
    ANRec.Filter = \"ID = \" & Request.Form(\"ID\")   
    ANRec(\"Overskrift\") = Trim(Request.Form(\"overskrift\"))
    ANRec(\"Body\") = Replace(Request.Form(\"body\"), chr(13), \"<BR>\" & chr(13), 1)
    ANRec(\"Forfatter\") = Trim(Request.Form(\"forfatter\"))
    ANRec.Update
    ANRec.Close
    Set ANRec = Nothing
    ANConn.Close
    Set ANConn = Nothing
%>

Så jeg IKKE får denne fejl:

ADODB.Recordset error \'800a0bb9\'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/gemedit.asp, line 13