INSERT FEJL - Ka' æt' hit' u' a' de' !

Jeg sidder med en ordenlig møghund af en SQL sætning - Og har provet at splitte den op - For bedre at kunne overskue den - Men : Nu virker den ikke og giver fejlen :

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT INTO-sætningen.

Jeg vedlægger kun den del der har med sql at gøre og håber et af jeres storslåede høgeblikke kan spotte fejlen ?

Undertegnede er gået kodeblind ;-)

<%
'STEP 6 : PREPARE SERVER SIDE HANDLING SCRIPT
'Saving the edited content back to the database
if Request.QueryString("action") = "save" then
    dim strTitle, strContent, strDocBgColor, strStartD, strSlutD, strStartM, strSlutM, strStartY, strSlutY, strSted, strBem, strArr, strTid, strOpr, strGodkendt
    strTitle = Request.Form("txtTitle")
    strContent = Request.Form("txtContent")
    strStartD = Request.Form("begdated")
    strSlutD = Request.Form("enddated")
    strStartM = Request.Form("begdatem")
    strSlutM = Request.Form("enddatem")
    strStartY = Request.Form("begdatey")
    strSlutY = Request.Form("enddatey")
    strSted = Request.Form("sted")
    strBem = Request.Form("bem")
    strArr = Request.Form("arr")
    strTid = Request.Form("time") & ":" & Request.Form("minut")
    strOpr = Now ()
    strDocBgColor = Request.Form("txtDocBgColor")
    strGodkendt = Request.Form("godkendt")
    dim adoCn
    dim strSQL
    set adoCn = Server.CreateObject("ADODB.Connection")
    adoCn.Open MM_connKal_STRING
    strSQL = "Insert Into t_arr ('"
    strSQL = strSQL & "titel,"
    strSQL = strSQL & "beskrivelse,"
    strSQL = strSQL & "startdato,"
    strSQL = strSQL & "slutdato,"
    strSQL = strSQL & "startmaaned, "
    strSQL = strSQL & "slutmaaned, "
    strSQL = strSQL & "startaar, "
    strSQL = strSQL & "slutaar, "
    strSQL = strSQL & "sted, "
    strSQL = strSQL & "bemaerkninger, "
    strSQL = strSQL & "arrangoer, "
    strSQL = strSQL & "tid, "
    strSQL = strSQL & "oprettet, "
    strSQL = strSQL & "BgColor,"
    strSQL = strSQL & "godkendt)"
   
      strSQL = strSQL & " Values ('"
      strSQL = strSQL & replace(strTitle,"'","''") & "','"
      strSQL = strSQL & replace(strContent,"'","''") & "','"
      strSQL = strSQL & strStartD & "','"
      strSQL = strSQL & strSlutD & "','"
      strSQL = strSQL & strStartM  & "','"
      strSQL = strSQL & strSlutM & "','"
      strSQL = strSQL & strStartY & "','"
      strSQL = strSQL & strSlutY & "','"
      strSQL = strSQL & replace(strSted,"'","''") & "','"
      strSQL = strSQL & replace(strBem,"'","''") & "','"
      strSQL = strSQL & replace(strArr,"'","''") & "','" 
      strSQL = strSQL & strTid & "','"
      strSQL = strSQL & strOpr & "','"
      strSQL = strSQL & strDocBgColor  &  "','"
      strSQL = strSQL & strGodkendt & "')"
    adoCn.Execute strSQL
    adoCn.Close
    set adoCn = nothing
   
    Response.Redirect "kal_default.asp"
end if
%>