черновик на тот момент:
Взглянул на код "А так?"

Ълядь. Это какой-то театр абсурда... Возникает чел со скоростью. Ну, типо, есть у него свон понимание ее. В сферичееских попугаях. В вакууме. И возникает энтузизист с говнокодом (мы про скорость толкуем!). И оба щазтливы... Не укладывается такое в голове...

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

--------------
Set r = Me.RecordsetClone
заполнять его дядя будет...


--------------
s = s & r!id & ","

Я, честно, не разбираюсь и не хочу разбираться в этих восклицательных знаках, точках, квадратных скобках и прочих аксовых костылях. Ни разу у меня не было проблем с этим и не будет.

Так что - забей эту конструкцию себе в ... хм... и напмши по-людски:
r.Fields("id").Value

И что получается? Что именно для того мы храним ИД в лонге, чтобы потом загнать его в строку?!!
Конкатенация - самый ресурсоемкий процесс, шоб ты знал...
И это на каждой записи...

--------------
r.MoveNext
Угу... но почему здесь?!

--------------
If i \ 1000 = i / 1000 Then

Это вааще атас...
С открытым сердцем положившись на последовательности компилятора :)
Не судьба, знать, была скобки поставить красоты и читабельности хотя бы для...
Ее говоря уж об однозначности инструкций компилятору.
Будь я компилятором - назло тебе сосчитал бы (i \ (1000 = i) / 1000)
:)

Лана... запишем по-людски: (i \ 1000) = (i / 1000)

Но, из лонга в дабл, безя ывной нужды - это нормально?

Сравнение не явно приводимых типов - это нормально?
Сравнение на равенство не явно приводимых типов - это нормально?
Сравнение на равенство не явно приводимых типов, один из которых с вероятностью 99.9% дабл - это нормально?
НЕ СРАВНИВАЮТСЯ, ЪЛЯЪЬ!, ДАБЛЫ НА РАВЕНСТВО!

Ну и, в целом, разве mod не православен нынче?

Т.е. вся эта непростая трехомудия лишь из того, что мсье не знает слова mod...
А мы о СКОРОСТИ говорим. Никто еще не забыл вводную?


--------------
s = Left(s, Len(s) - 1)
Left в контексте скорости пишется как Left$

Ты для этого шагом выше добавлял запятую, чтобы сразу наччать вычислять (!) длину строки с ней, чтобы потом подрезать строку слева без нее?!!! Две переменных завести - ну ни как не судьба?!


--------------
Len(s) == Int(Log(Abs(s))/Log(10#) + 1)
Предполагаю, что есть и более изящные решения.

Но и даже это от лукавого. Не нужно оно. У нас есть оригинальное s, которое нужно модифицировать по результату отработки if, которое надо загнать в соответствующий тип, и проверять уже его, а не этот высер:

If (s <> "") Then
Ну, снизойди, сжалься, хотя бы до (Len(s) > 0)
Тем более, что мы же все о скорости толкуем ...
Я уж и скобки за тебя ласставляю... да... не царское это дело...


--------------
Закон - если код повторяется два раза и больше - в отдельную процедуру!
Скажется на скорости - тадый ой. Будет исключение из Правил. Застрелишься только документировать...