Dim strSQLInd, strSQLGrup, strSQLZan, iCountInd, iCountGrup, iCountZan, iCountSum
strSQLInd="SELECT COUNT(*) FROM tblSchedule2 WHERE(Service='Консультация')  AND (Absent=False)AND (NomPool='Инд.занятие' OR NomPool='С бортика');"
iCountInd = ExecuteSQL(strSQLInd)
strSQLGrup="SELECT COUNT(*) FROM tblSchedule2 WHERE (Service='Консультация')  AND (Absent=False) AND (NomPool='Груп.занятие');"
iCountGrup = ExecuteSQL(strSQLGrup)
strSQLZan="SELECT COUNT(*) FROM tblSchedule2 WHERE (Service <> 'Консультация')  AND (Absent=False);"
iCountZan = ExecuteSQL(strSQLZan)
iCountSum = iCountInd + iCountGrup + iCountZan
MsgBox ("Конс.индивидульных:" & chr(9) &  iCountInd & chr(13) & "Конс.групповых:" & chr(9) & chr(9) & iCountGrup & chr(13) & "Занятий:" & chr(9) & chr(9) & chr(9) &  iCountZan & chr(13) & "Всего:" & chr(9) & chr(9) & chr(9) &  iCountSum, 0, "Количество услуг")