Insert into

Nu har jeg stirret for længe på denne fejl og kan ikke finde den...

Er der nogen der kan hjælpe mig med hvad jeg gør galt her?

    If request.form("Action") = "Send" Then
   
                StrOrdrenr = Request.Form("Ordrenummer")
                StrDato = Request.Form("Dato")
                StrEvent = Trim(Request.Form("Event"))
                StrNavn = Trim(Request.Form("Navn"))
                StrEfternavn = Trim(Request.Form("Efternavn"))
                StrAdresse = Trim(Request.Form("Adresse"))
                StrPostnr = Trim(Request.Form("Postnr"))
                StrBynavn = Trim(Request.Form("By"))
                StrAntal = Request.Form("Antal")
                StrSted = Request.Form("Valgmenu")
                StrPris = request.form("Pris")
                StrTel = Trim(request.form("Telefon"))
                StrEmail = request.form("Email")
       
        AbnDB
               
                    strSQL = "INSERT INTO Event ("
                    strSQL = strSQL & "Ordrenummer , "
                    strSQL = strSQL & "Dato , "
                    strSQL = strSQL & "Event , "
                    strSQL = strSQL & "Navn , "
                    strSQL = strSQL & "Efternavn , "
                    strSQL = strSQL & "Adresse , "
                    strSQL = strSQL & "Postnummer , "
                    strSQL = strSQL & "By , "
                    strSQL = strSQL & "Opsamlingssted , "
                    strSQL = strSQL & "Antal , "
                    strSQL = strSQL & "Pris , "
                    strSQL = strSQL & "Telefon , "
                    strSQL = strSQL & "Email ) "
                   
                    strSQL = strSQL & "values('"
                    strSQL = strSQL & StrOrdrenr & "', '"
                    strSQL = strSQL & StrDato & "', '"
                    strSQL = strSQL & StrEvent & "', '"
                    strSQL = strSQL & StrNavn & "', '"
                    strSQL = strSQL & StrEfternavn & "', '"
                    strSQL = strSQL & StrAdresse & "', '"
                    strSQL = strSQL & StrPostnr & "', '"
                    strSQL = strSQL & StrBynavn & "', '"
                    strSQL = strSQL & StrAntal & "', '"
                    strSQL = strSQL & StrSted & "', '"
                    strSQL = strSQL & StrPris & "', '"
                    strSQL = strSQL & StrTel & "', '"
                    strSQL = strSQL & Email & "')"

            Conn.Execute(strSQL)
        LukDB