ขอโค้ด การตัดสต๊อกสินค้าและการเพิ่มสต๊อกหน่อยครับในเวลาซื้อ-ขาย

'ส่วนนี้เป็นโค้ด แก้ไขจำนวนคงเหลือในตาราง Product 
                'เอาจำนวนขาย -Stock
                sb = New StringBuilder
                sb.Append("SELECT Proid, Stock FROM Product")
                sb.Append(" WHERE Proid=@Proid")
                sqlAdd = sb.ToString()


                exeCommand = New SqlCommand
                With exeCommand
                    .CommandText = sqlAdd
                    .Connection = conn
                    .Parameters.Add("@Proid", SqlDbType.VarChar).Value = ListView1.Items(i).SubItems(0).Text
                    dr = .ExecuteReader()
                    If dr.HasRows Then
                        dr.Read()
                        dr.Close()


                        sb = New StringBuilder
                        sb.Append("UPDATE Product")
                        sb.Append(" SET  Stock=@Stock")
                        sb.Append(" WHERE (ProID=@ProID)")
                        sqlAdd = sb.ToString()

                        With exeCommand
                            .CommandText = sqlAdd
                            .Parameters.Clear()
                            .Parameters.Add("@Stock", SqlDbType.Int).Value = CInt(ListView1.Items(i).SubItems(4).Text) - CInt(ListView1.Items(i).SubItems(5).Text)
                            .Parameters.Add("@ProID", SqlDbType.VarChar).Value = ListView1.Items(i).SubItems(0).Text
                            .ExecuteNonQuery()
                        End With
                    End If

Private Sub btn_Add_Staff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Add_Staff.Click
        If txtProID.Text.Trim = "" Or txtProName.Text.Trim = "" Or txtProPrice.Text.Trim = "" Then
            MessageBox.Show("กรอกข้อมูลให้ครบทุกรายการ", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        '............................

        sb = New StringBuilder()
        sb.Append("INSERT INTO Product(ProID, ProName, ProPrice)")
        sb.Append(" VALUES (@ProID, @ProName, @ProPrice)")

        Dim sqlAdd As String
        sqlAdd = sb.ToString()

        exeCommand = New SqlCommand()

        'เพิ่มการตรวจสอบกรณีอาจเกิดการผิดพลาดที่ผู้ใช้กรอกข้อมูล  ด้วย Try Catch
        Try
            With exeCommand
                .CommandText = sqlAdd
                .Connection = conn
                'GenerateStaff_ID()
                .Parameters.Add("@ProID", SqlDbType.NVarChar).Value = txtProID.Text.Trim()
                .Parameters.Add("@ProName", SqlDbType.NVarChar).Value = txtProName.Text.Trim()
                .Parameters.Add("@ProPrice", SqlDbType.Float).Value = txtProPrice.Text.Trim()
                .ExecuteNonQuery()   'ประมวลผลการเพิ่มข้อมูล
            End With

            MessageBox.Show("เพิ่มข้อมูลลูกค้าลงฐานข้อมูลแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch
            MessageBox.Show("เกิดความผิดพลาดจากการกรอกข้อมูล รหัสลูกค้าอาจซ้ำ กรุณาตรวจสอบ", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

        ClearData()
        ShowData()
        FormatDataGrid()
    End Sub