รบกวนผู้รู้ทุกท่าน ขอโค้ดที่เกี่ยวกับการตัดยอดสต็อคสินค้า รวมทั้งยอดรวมของราคาด้วยครับ

Sub UpdateStock()
        Dim CutStock As String = "UPDATE Product SET ProductItem = ProductItem'" & -txtAmount.Text & "' WHERE ProductID ='" & txtProductID.Text & "'"
        Try
            dbOpen()
            Com = New SqlCommand(CutStock, Conn)
            If Com.ExecuteNonQuery() = 1 Then
                MessageBox.Show("ทำการตัดสต็อคเรียบร้อย", "สถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, "Error", MessageBoxIcon.Error)
        End Try
    End Sub