Update Array virker ikke efter skift til MySQL DB fra Access DB

Jeg får denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/admin/side_redigering.asp, line 73

----------

Og linie 73 er der hvor jeg laver en update array. Men jeg ved ikke hvordan sådan en skal se ud nu hvor jeg er skiftet til MySQL DB.

Men det er hvist også galt med min addnew og delete sætning.

Er der nogen der kan se hva det er jeg gør galt?

----------


if Request.Form("strAction")<>"" then
   
   
    if Request.Form("strAction")="Slet" then
                    intID = Request.Form("intID")
                    objCon.Execute "DELETE FROM tblPage WHERE intID=" + cstr(intID)
        Response.Write "Siden er slettet!"       
    else   
        ' Værdier bliver hentet fra streng
        intID=Request.Form("intID")
        strOverskriftMenu=Request.Form("strOverskriftMenu")
        intMenuNiveau=Request.Form("intMenuNiveau")
        intSort=Request.Form("intSort")
        intSideRef=Request.Form("intSideRef")
        strTop=Request.Form("strTop")
        strOverskrift=Request.Form("strOverskrift")
        strIndled=Request.Form("strIndled")
        strBrTekst=Request.Form("Message")
        strPicCols=Request.Form("strPicCols")
        strFrontPic=Request.Form("strFrontPic")
        intLayout=Request.Form("intLayout")
        strLink=Request.Form("strLink")
       
            objRec.Open "SELECT * FROM tblPage WHERE intID="+intID, objCon, 3, 2
                if objRec.eof=false then
                    objRec.Update Array("strOverskriftMenu","intSort","intMenuNiveau","intSideRef","strTop","strOverskrift","strIndled","strBrTekst","strPicCols","strFrontPic","intLayout","strLink"), _
                                  Array(strOverskriftMenu,intSort,intMenuNiveau,intSideRef,strTop,strOverskrift,strIndled,strBrTekst,strPicCols,strFrontPic,intLayout,strLink)
                    Response.Write "Siden er opdateret!"
                else
                    objRec.AddNew Array("strOverskriftMenu","intSort","intMenuNiveau","intSideRef","strTop","strOverskrift","strIndled","strBrTekst","strPicCols","strFrontPic","intLayout","strLink"), _
                                  Array(strOverskriftMenu,intSort,intMenuNiveau,intSideRef,strTop,strOverskrift,strIndled,strBrTekst,strPicCols,strFrontPic,intLayout,strLink)
                    Response.Write "Siden er nu oprettet!"
                    Dim strAdd
                    strAdd="aktiv"
                end if
            objRec.Close
    end if
end if