Доброго времени суток. Прошу помощи или хотя бы объяснения.

Имеется таблица t1 с полями ID, Str
Из Excel загружаю во временную таблицу t2 данные (допустим по 15000 несколькими итерациями)

Далее идёт модуль к которому собственно вопросы.

Сейчас выполняется проверка

If IsNull(DLookUp("[ID]","t1","[Str]='" & t2!Stroka & "'") then
    recordset.addnew
else
    recordset.edit
end if

Первая итерация занимает 40 сек, вторая 6-7 минут, третья 30 и далее...

Мною были предприняты различные попытки изменения алгоритма:
FindFirst

.FindFirst "[Str]='" & t2!Stroka & "'"
If .nomatch then
    .addnew
else
    .edit
end if

Seek (таблица прилинкованная поэтому через OpenForSeek)

 
Set stbl = OpenForSeek("t1")
stbl.Index = "Str"
stbl.Seek "=", t2!Stroka
If stbl.NoMatch Then....

Стало хуже... уже первая итерация грузит 6 мин. Как так? Индекс по строке проставлен.

Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.

http://www.sql.ru/forum/1072991/skorost-poiska-v-rekrodsete-po-stroke