Най-бавен е физическият достъп до данните на HDD. Затова най-добре да направиш сметките на single table scan така например:

SELECT      SUM(IIF(Type = "A", 1, 0))                          AS CountTypeA

            , SUM(IIF(Type = "I", 1, 0))                        AS CountTypeI

            , SUM(IIF(Type = "S", 1, 0))                        AS CountTypeS

            , SUM(IIF(Type = "S" AND Status = "ф", 1, 0))       AS CountTypeSStatusF

            , SUM(IIF(Type = "S" AND Status = "ф"

                AND [Date] < DateAdd("m", -6, Date()), 1, 0))   AS CountTypeSStatusFBefore6Months

FROM        qTableSplitNomer;

Function DateAdd(Interval As String, Number As Double, Date)

    Member of VBA.DateTime

    Returns a Variant containing a date to which a specified time interval has been added



Property Date As Variant

    Member of VBA.DateTime

        Sets or returns the current system date