ช่่วยด้วยครับ ติดปัญหาการอัพเดทข้อมูลใหม่ลง ฐานข้อมูล Access ครับ VB2010

  Dim str As String = "UPDATE Products SET pro_id=@pro_id,name=@name,unit_price=@unit_price,categories=@categories,detail=@detail,stock=@stock WHERE pro_id=@pro_id"
        With Com
            .CommandText = str
            .CommandType = CommandType.Text
            .Connection = Conn
            .Transaction = tr
            .Parameters.Clear()
            .Parameters.Add("@pro_id", OleDbType.VarChar).Value = txtproid.Text.Trim()
            .Parameters.Add("@name", OleDbType.VarChar).Value = txtnamep.Text.Trim()
            .Parameters.Add("@unit_price", OleDbType.VarChar).Value = txtpricep.Text.Trim()
            .Parameters.Add("@categories", OleDbType.VarChar).Value = cbbcatp.Text.Trim()
            .Parameters.Add("@detail", OleDbType.VarChar).Value = txtdetailp.Text.Trim()
            .Parameters.Add("@stock", OleDbType.VarChar).Value = txtstock_s.Text.Trim()
        End With
        Com.ExecuteNonQuery()