При работе с циклами по коллекции рекомендуется использовать For...Each вместо For...Next. При работе с циклами по элементам управления на форме код
For Each cnti on fcm
Next
выполняется быстрее, чем простой цикл For...Each.
Если необходимо создать цикл по коллекции объектов, следует избегать ненужного обновления коллекции. Даже в маленькой базе данных обновление коллекции может значительно снизить быстродействие приложения.
При использовании цикла For—Next можно сэкономить время, не повторяя переменную в строке Next.
For i=l to 100
.... .необходимый код
Next
Преимущества такого подхода особенно заметны при использовании вложенных циклов. Кроме того, не следует пересчитывать предельное значение для строки For.
Верхнее предельное значение должно быть установлено перед входом в цикл.
reccount=rs.recordcount/2
For i=l to reccount
Next
Если не установить заранее значение верхнего предела, цикл пересчитывает значение при каждом проходе, а это — потеря времени.