Help! problem adding records to subform

[Paul T. Rong]

In form ¡°Order¡± there are 4 important controls:
- combo1 (unbounded, source from ProductID field of Product table),
- txt1 (I wish the product name will automatic show here after the user
inputs the product number in combo1),
- txt2 (where the user inputs the quantity of the Product needed, then press
¡°Enter¡± key, then triggers a Docmd.RunSQL ¡°insert into¡* code to add
records to the subform ¡°Order_detail¡ ±)
- a subform ¡°Order_detail¡ ±

here go the codes:

--------------------------------

Private Sub Form_Open(Cance l As Integer)

DoCmd.GoToRecor d acDataForm, "Order", acNewRec

End Sub
Private Sub txt2_KeyDown(Ke yCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

If Me.combo1.Value <> "" And Me.txt2.Value <> "" Then

DoCmd.SetWarnin gs False

Me.Order_detail .Requery

Me.Order_detail .SetFocus

DoCmd.RunSQL "INSERT INTO tblOrderdetail ( OrderID,
ProductID, price, quantity )" _
& "SELECT [Forms]![Order]![OrderID] AS
Expression1, Product.Product ID, Product.price, [Forms]![Order]![txt2] AS" _
& "Expression 2 FROM Product WHERE
(((Product.Prod uctID)=[Forms]![Order]![combo1])) ORDER BY
[Forms]![Order]![OrderID];"

DoCmd.SetWarnin gs True

Me.combo1.Value = ""

Me.combo1.SetFo cus

Me.txt2.Value = "1"

End If

End If

End Sub
Private Sub CustomerID_Afte rUpdate()
Me.Order_detail .SetFocus
End Sub

----------------------------------------------------------

where did I make mistake? Thank you for your patience, any help would be
very much appreciated.