Отбор данных...

Текстовая строка запроса будет такая:

Уникальным полем для посетителя я выбрал паспортные данные. Именно по этому полю происходит группировка и отбор лучших десьти.
Нюанс: у нас есть например 15 записей на одного человека, сгрупировав таблицу по полю Passport_number мы получаем таблицу с уникальными (неповторяющимися) номерами паспортов. Если мы хотим кроме того показать еще его Имя, Фамилию и т.д., то тут у нас два варианта.
Если мы уверены что во всех десьти записях на одного и того же человека будут указаны абсолютно одинаковые данные, то можно группировать сразу Passport_number, Name, Surname и т.д., но естественно если не дай бог, в одной записи посетителя назовут не Смит, а Смитт (а все остальные данные будут одинаковые), то мы полцчим в итоге в запросе двух разных посетителей каждого со своим кол-вом посещений.
Поэтому я предложил (и тем более что я не знал ваших условий формирований таблицы) более универсальный способ извлечения имен и т.д.Делоется так - по известному номеру паспорта мы через функцию DFirst извлекаем name, surname,... из первой же найденной записи. В принципе функцию DFirst можно легко заменить подчиненным запросом с SELECT TOP 1..

Поэтому вот эти .... в середине запроса имеют ввиду, что по необходимости добалвения столбцов, надо повторить также как и с Name и Surname. Просто я не стал все столбцы расписывать, они там по аналогии.

iMonth - переменная типа Integer, номер месяца

В принципе есть смысл в базе Access сохранить такой запрос как постоянный, а месяц передавать как параметр и и VBA вызвать его уже по имении, а не формировать srtSQL каждый раз динамически.

Преймущества: сохраненный в базе запрос (и один раз уже запущенный) хранится в базе в неком откомпиллированном виде. Т.е. ядро базы уже составила оптимальный план выполнения запроса и кроме того каждый раз выполняя запрос база собирает статистические данные помогающие оптимизировать выполнение запроса. Т.о. сохраненный запрос будет работать немного быстрее, да и нагляднее - лежит себе на видном месте и его из разных мест коды VBA можно вызывать, а как поправить надо, так он один такой, правь в конструкторе не залезая в код.

Да вот еще, более существенный момент.

Итоговую выборку лучше получать составив сложный SQL-запрос, чем открывая рекодсет и ползая по нему отбирать данные, т.к. любое ползание по рекодсету отнимает в десятки, сотни разы больше времени, чем таже выборка реализованная ядром базы на основе SQL-запроса.