没有为一个或多个必需参数给出值。 vb.net中的更新语句

Question

此代码中的问题出在哪里？

Dim cmd As New OleDb.OleDbCommand("update SalesDates set Name=@name1,Weghit=@weghit1,
                                        Price=@price1,PriceUnloaded=@PriceUnloaded1,Total=@total1,
                                        Totalprice=@Totalprice1,Unloadedtotal=@Unloadedtotal1 ,
                                        Wegiht_bill_no=@Wegiht_bill_no1,Dates_types=@Dates_types1,
                                        Store=@Store1 where ID=id2", conn)

cmd.Parameters.Add("@name1", OleDb.OleDbType.Char).Value = name1
cmd.Parameters.Add("@weghit1", OleDb.OleDbType.Decimal).Value = weghit1
cmd.Parameters.Add("@price1", OleDb.OleDbType.Decimal).Value = price1
cmd.Parameters.Add("@PriceUnloaded1", OleDb.OleDbType.Decimal).Value = PriceUnloaded1
cmd.Parameters.Add("@total1", OleDb.OleDbType.Decimal).Value = total1
cmd.Parameters.Add("@Totalprice1", OleDb.OleDbType.Decimal).Value = Totalprice1
cmd.Parameters.Add("@Unloadedtotal1", OleDb.OleDbType.Decimal).Value = Unloadedtotal1
cmd.Parameters.Add("@Dates_types1", OleDb.OleDbType.Char).Value = Dates_types1
cmd.Parameters.Add("@Wegiht_bill_no1", OleDb.OleDbType.Integer).Value = Wegiht_bill_no1
cmd.Parameters.Add("@Store1", OleDb.OleDbType.Char).Value = Store1

conn.Open()

cmd.ExecuteNonQuery()
conn.Close()
cmd = Nothing

在Access中执行此代码时，一切都很好。但是当我在VB.Net中使用它时，我收到消息：

  

没有为一个或多个必需参数提供值。