مشكلة في حساب مجموع حقل محدد.

لله الحمد وجدت الحل وهو الكود التالي :

Dim q7 As New ADODB.Recordset
Dim sql7
sql7 = "SELECT sum (buy_total)from bought WHERE month like '" & Combo1.Text & "%' "
If q7.State = adStateOpen Then q7.Close
q7.Open sql7, db, adOpenDynamic, adLockPessimistic
Text1.Text = q7.Fields(0)

لكن سأغير طلبي إلى :

ظهور رسالة معينة إذا كان المجموع صفر "أي أن الحقل لايحتوي على بيانات". وذلك في الكود السابق.

مساعدتكم ياأخواني