Problem med sql sætning

Kan ikke få dette til at funke:
    xTitel = Request.Form("titel")
    xGruppe = Request.Form("gruppe")
    xStatus = Request.Form("stat")
    xsTil = Request.Form("sti")
    xTitel = Replace(xTitel,"'","'")
    xTitel = Replace(xTitel,"<","&lt;")
    xTitel = Replace(xTitel,">","&gt;")
    xsTi = Replace(xsTi,"'","&#39;")
    xsTi = Replace(xsTi,"<","&lt;")
    xsTi = Replace(xsTi,">","&gt;")
    If xsTi = "" Then
      xsTi = "intet"
    End If
    SQL = "Insert into Emne(Titel, Gruppe, Sti, Status) values("
    SQL = SQL & "'" & xTitel & "', "
    SQL = SQL & "'" & xGruppe & "', "
    SQL = SQL & "'" & xsTi & "', "
    SQL = SQL & "'" & xStatus & "')"
    Conn.Execute(SQL) 'line 87

Når jeg prøver at oprette nyt emne vha. den sql-sætning giver den mig denne fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/dopetest/Plaque/opret.asp, line 87

Nogen der kan hjælpe?