Пишу 30000 строк в базу Access, как ускорить? - VB

Формулировка задачи:

Экспериментирую тут с заливкой большого объема данных в базу Access.
Данные заливаются в одну таблицу, которая не имеет ни ключей ни индексов.
Берутся данные из заполненного массива.
Пробовал следующие способы в порядке возрастания времени работы:
1) - 192 секунды
rst.Open strsql, cnnData, adOpenStatic, adLockBatchOptimistic
.AddNew
rst.UpdateBatch
2) - 228 секунд
rst.Open strsql, cnnData, adOpenKeyset, adLockOptimistic
.AddNew
.Update
3) - 248 секунд
cnnData.Execute strsql, , adCmdText + adExecuteNoRecords
4) - 254 секунды
cnnData.Execute strsql
Последние на равных почти, а кругом обещали что 3 быстрее 4. Ну да не в этом вопрос, как бы все это ускорить? И почему так долго, в то время когда импорт из текстового файла те же самые 30000 строк в ту же таблицу занимает пару-тройку секунд?

Решение задачи: «Пишу 30000 строк в базу Access, как ускорить?»

textual
                            Листинг программы 
                        
                            cnn.Execute <font color="teal">"insert into tempDB SELECT top "</font> & txt_print.Text & <font color="teal">" * From users WHERE REG IN ("</font> & s & <font color="teal">") and k_tov1 in ("</font> & s1 & <font color="teal">") and (date >="</font> + d + <font color="teal">") and (date <="</font> + d2 + <font color="teal">") and (IND is not null) and (date_print is null) and (obr is not null)"</font>