Insert into giver fejl

<%
if Request.QueryString ("action") = "new" then

Betegnelse = Request.Form("Betegnelse")
Ansvarlig = Request.form("ansvarlig")

Betegnelse = Replace(Betegnelse,"'","''")

strCreateNew="INSERT INTO OpgaveKategori (Betegnelse, Ansvarlig) Values('"&Betegnelse&"','"&Ansvarlig&"')"
DBCMD.Execute strCreateNew

Response.redirect("adm_kategori.asp?mode=ok&Ansvarlig="&Ansvarlig)
%>

<%    DBCMD.Close
    set DBCMD = nothing
    end if
%>


fejl:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/websupport/adm_kategori.asp, line 100

linie 100: DBCMD.Execute strCreateNew