Skrive til database, felt

Hej

Jeg har tidligere fået dette til at virke med hjælp herfra. Nu har jeg lavet en ny tabel i min database for at få en bedre struktur på mit site men nu går det i koks. Jeg har stirret mig blind på dette så måske en kan hjælpe ?

Min kode ser ud som følger :
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT order_product_name, order_product_price, order_quantity FROM orders",objConndrejebase,adOpenDynamic, adLockOptimistic
%>
<%
strSQL = "Insert into orders ("

strSQL = strSQL & "order_quantity, "


strSQL = "Insert into orders (order_quantity) values('" & Request.Form("order") & " ' )"
objConndrejebase.Execute(strSQL)

Response.Write"<tr><td>" & objRS("order_quantity") &"</td>"


%>


<%

Set objRS=objConndrejebase.Execute("SELECT order_product_name, order_product_price, order_quantity FROM orders")
Do while Not objRS.EOF


%>

<%
       

objRS.Movenext
Loop

objRS.Close
Set objRS = Nothing

objConndrejebase.Close
Set objConndrejebase = Nothing
%>
    </body>

</html>

Min fejl meddelse :
Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/shoppingbasket.asp, line 36
Min linie 36 objConndrejebase.Execute(strSQL)

Jeg er ikke helt sikker på at linienr. i fejlmeddelsen passer, jeg ved ikke hvorfor ? Men jeg håber at i alligevel kan se hvad jeg har lavet forkert.