Как ускорить работу с RecordSet?

[Fedorfx]

Всем привет.
Есть вопрос по оптимизации кода для ускорения работы с рекордсет.

Dim Con As ADODB.Connection
Dim RS as ADODB.Recordset
Set Con = New ADODB.Connection
Con.ConnectionString = "DSN=Test;UID=;PWD=;"
Con.Open
Set rs=con.execute ("Select * from Tetstable while time betwen....... order by.....")
do while not(rs.eof)
......
rs.movenext
loop
Все дело в том что записей в таблице больше 1 000 000 а выборка по Select от 10 000 до 50 000
Сам селект занимает 3-5 сек а вот голый цикл, без исполнения процедуры обработки 30-40 сек.
Я понимаю что много записей, но может есть способ ускорить решение данной задачи?

[skiperski]

Почитай, интересно
http://www.relib.com/articles/article.asp?id=42

[Fedorfx]

Про вариант с массивом я знал, но все равно спасибо.
Мне честно говоря без разници - 30 сек или 25 - все равно долго.
Думал что есть способ который может повысить выборку из БД на порядок быстрее.

[alibek]

А какая проводится обработка? Может ее лучше осуществлять в самом запросе?

[Fedorfx]

Обработка производится в программе.
Селект возвращает данные за определенный промежуток времени.
Сам бы с радостью свалил работу на SQL но никак - сложные алгоритмы.Вот и получается - в рекордсете 20 000 записей и их нужно засунуть по определенным признакам в прогу, но переборка рекордсета сама по себе ресурсоемкая процедура получается.
Я для примера делал селект и просто MoveNext. 30 сек как не крути. И проц вроде пень 4 1700 ( один из первых ). Уже подумываю прикупить двухпроцессурную машину.

[alibek]

Это особо не поможет.
Лучше делай Stored процедуру в базе данных и заставляй работать сервер, а запросом получай уже конечные результаты.