INSERT TO STATEMENT中的語法錯誤

Question

Dim ProductID As String = DataGridView2.Rows(Newewew).Cells(0).Value 
Dim BuyPrice As Decimal = DataGridView2.Rows(Newewew).Cells(2).Value 
Dim SellPrice As Decimal = DataGridView2.Rows(Newewew).Cells(3).Value 
Dim ProductCount As Decimal = DataGridView2.Rows(Newewew).Cells(4).Value 
Dim Command3 As New OleDb.OleDbCommand 
Data = "insert into ProductReceiptDetails" &"(receiptID,Product ID,ProductCount,BuyPrice,SellPrice) " & "values " & "(:0,:1,:2,:3,:4)" 

Command3.Connection = Newconnection 
Command3.Transaction = NewTransac 
Command3.CommandText = Data 
Command3.Parameters.AddWithValue(":0", receiptID) 
Command3.Parameters.AddWithValue(":1", ProductID) 
Command3.Parameters.AddWithValue(":2", ProductCount) 
Command3.Parameters.AddWithValue(":3", BuyPrice) 
Command3.Parameters.AddWithValue(":4", SellPrice) 
Command3.ExecuteNonQuery() 
Command3.Dispose() 

' ... 

Dim Data As String = "INSERT INTO ReceiptDetails (ReceiptDate,ReceiptTotal) " & "values " & "(:0,:1)" 
Dim Command As New OleDb.OleDbCommand 
Command.Connection = Newconnection 
Command.Transaction = NewTransac 
Command.CommandText = Data 
Command.Parameters.AddWithValue(":0", Now.Date) 
Command.Parameters.AddWithValue(":1", TextBox4.Text) 
Command.ExecuteNonQuery() 

你能幫我解決這個錯誤嗎？我使用的是VS 2008和MS Access 2013.所有的表名和列名都是正確的，但總是出現錯誤。

Answer 1

嘗試用支架和適當的間距和問號：

Data = "insert into ProductReceiptDetails (receiptID,[Product ID],ProductCount,BuyPrice,SellPrice) values (?,?,?,?,?)" 

，並使用Command3.Parameters.Add("@parameter0", ..)指定的數據類型。