متغير لحفظ قيمة sql

السلام عليكم انا كنت متعشم فيكم تجوبو على سؤالى البسيط و انا متأكد انكو هتقدرو لان اى حد فيكو تعرض لبرنامج مبيعات و مشتريات اكيد واجهوا

السؤال:

انا شغال فى برنامج مبيعات و مشتريات و خلاص خلصتو بس مش عارف اعمل حد اعاد الطلب و وظيفتة انو لما المخزون بتاع سلعة معينة يوصل لحد معين

يطلع للمسنخدم انزار فأنا استنتجت انو ممكن اجمع الكمية الى انا اشتلريتها من السلعة دى و اطرحها من الميبعات بتاعت نفس السلعة ولو طلعت النسبة دى

اقل او تساوى حد اعادة الطلب يطلع الانزار

و انا دلوقتى شغال بأدو فعملت كدة

مع مراعاة ان itm_qu هى عدد الوحدات بتاع الصنف فى جدول الشتريات (buy)وجدول المبيعات (sell)و itm_id هى رقم الصنف فى كل جدول

وجدولالاصناف هو itm

Private Sub Command6_Click()
Dim x as string
Dim y as string
Dim w as Integer
Dim z as Integer
x = "select sum(itm_qu) from buy where itm_id='" + Combo2.Text + "'"
y = "select sum(itm_qu) from sell where itm_id='" + Combo2.Text + "'"
w = "select itm_qu from itm where itm_id='" + Combo2.Text + "'"
z = x - y
If z <= w Then
MsgBox "انزار لقد نفذ الخزون" 
End If
end sub

بس فأنا عملت الكلام دة و مشتغلش فهل حد عندو طريقة تانية