สอบถามเรื่อง อยากให้ msgbox โชว์ เมื่อสินค้าในสต็อก db หมดครับ เกี่ยวเนื่อง 2 tb

                    For i = 0 To dgvCal.RowCount - 1
                        strSql = "Insert into [Orders Details] Values(@OrderID, @ProductID, @OdUnitPrice, @Quantity, @Discount)"


                        Cmm.Parameters.Clear()
                        Cmm.Connection = conn
                        Cmm.CommandText = strSql  'Cmm.CommandText = strSql'เคลียค่า ในloop 
                        Cmm.Parameters.AddWithValue("@OrderID", lblOrdersID.Text)
                        Cmm.Parameters.AddWithValue("@ProductID", dgvCal.Item(0, i).Value)
                        Cmm.Parameters.AddWithValue("@OdUnitPrice", dgvCal.Item(2, i).Value) 'คลอลัม 0 แถวที่ i 
                        Cmm.Parameters.AddWithValue("@Quantity", dgvCal.Item(3, i).Value)
                        Cmm.Parameters.AddWithValue("@Discount", dgvCal.Item(4, i).Value)


                        r = Cmm.ExecuteNonQuery


                        strSql = "update Products,[Orders Details] set Products.UnitsInStock = Products.UnitsInStock - @Quantity " & _
                          " Where ProductID = @ProductID and Products.UnitsInStock > [Orders Details].Quantity "  'ตัดสต็อก
                        Cmm.CommandText = strSql
                        r = Cmm.ExecuteNonQuery