ช่วยดู code Update อันนี้หน่อยครับ มันไม่ยอมเปลี่ยนข้อมูลครับ

'จาก
sb.Remove(0, sb.Length)
sb.Append("Update dbProduct set ID=@ID,Name=@Name,Price=@Price,Number=@Number")
sb.Append("where ID='" + txtID.Text + "' ")
Dim sqlAdd As String
sqlAdd = sb.ToString()
com = New SqlCommand()
With com
	.CommandText = sqlAdd
	.CommandType = CommandType.Text
	.Connection = Conn
	.Transaction = tr
	.Parameters.Clear()
	
	com.Parameters.Add("@ID", SqlDbType.NVarChar).Value = txtID.Text
	com.Parameters.Add("@Name", SqlDbType.NVarChar).Value = txtName.Text
	com.Parameters.Add("@Price", SqlDbType.NVarChar).Value = txtSale.Text
	com.Parameters.Add("@Number", SqlDbType.NVarChar).Value = txtNumber.Text
	.ExecuteNonQuery()
End With

'แก้เป็น
sb.Clear()
sb.AppendLine("Update dbProduct set ID=@ID,Name=@Name,Price=@Price,Number=@Number")
sb.AppendLine("where  ID=@ID ")
Dim sqlAdd As String
sqlAdd = sb.ToString()
com = New SqlCommand()
With com
	.CommandText = sqlAdd
	.CommandType = CommandType.Text
	.Connection = Conn
	.Transaction = tr
	.Parameters.Clear()
	
	com.Parameters.AddWithValue("@ID", txtID.Text.Trim())
	com.Parameters.AddWithValue("@Name", txtName.Text.Trim())
	com.Parameters.AddWithValue("@Price",  CCurr( txtSale.Text.Trim()))
	com.Parameters.AddWithValue("@Number",  CInt(txtNumber.Text.Trim()))
	.ExecuteNonQuery()
End With

sb.AppendLine("where  ID=@ID ") 'น่าจะเป็นตรงที่ ("where  ID=@ID ") ลอง Specbar ให้ where
'ห่างจาก String ดูน่ะครับ ("  where  ID=@ID ")