Insæt i tabel

Hvad er problemet i denne kode:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb")
Conn.Open DSN

dim sql
strSql = "INSERT INTO ordre (navn, adresse, tlf, email, dato, antal, bemærkninger) values('"
    strSql = Sql & Request.form("navn") & "','"
    strSql = Sql & Request.form("adresse") & "','"
    strSql = Sql & Request.form("tlf") & "','"
    strSql = Sql & Request.form("email") & "','"
    strSql = Sql & now() & "','"
    strSql = Sql & Request.form("antal") & "','"
    strSql = Sql & Request.form("bemærkninger") & "')'"
        conn.Execute(strSQL) 'linie 15
       

strSQL = "SELECT id FROM ordre WHERE dato = now()"
    Set rs = Conn.Execute(strSQL)
response.write "Dit ordre nummer er:<h3> " & rs("id") & " </h3>"
response.wrtie "din ordre er tilføjet"
conn.close
%>   

Jeg får følgende fejl melling

Fejltype:
Microsoft JET Database Engine (0x80040E14)
Der er en ugyldig SQL-sætning. "DELETE", "INSERT", "PROCEDURE","SELECT" eller "UPDATE" var ventet.
/asp/tilfoej.asp, line 15

Håber i kan hjælpe