[VB.NET] ขอวิธีเชคสินค้ากรณีขาย เกินจำนวนใน Stock ช่วยดู Code ให้ทีครับ

        Dim comSave As New SqlCommand
        Dim comUpdate As New SqlCommand
        Dim NumRows, i As Integer
        NumRows = grdOrder.Rows.Count - 1
        For i = 0 To NumRows


            strSQL = "select * from Product WHERE(P_ID = '" & CStr((grdOrder.Rows(i).Cells(0).Value.ToString)) & "' and stock < '" & CInt(grdOrder.Rows(i).Cells(3).Value) & "')"
            da = New SqlDataAdapter(strSQL, Conn)

            If IsFindchk = True Then
                ds.Tables("cQty").Clear()
                IsFindchk = False
                'MessageBox.Show("Clear", "กรุณาตรวจสอบข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Error)
                'bQty = False
            End If

            da.Fill(ds, "cQty")

            If ds.Tables("cQty").Rows.Count <> 0 Then
                IsFindchk = True
                MessageBox.Show("คุณไม่สามารถขายสินค้าเกินจำนวนที่มีได้ " & CStr(IsFindchk), "กรุณาตรวจสอบข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Error)
                'bQty = True
                'Exit Sub
            End If
        Next