Повтор запросов из QueryDef

[Serg0]

Имеется запрос с параметрами (дат , начало конец) первый раз выполняется при повторных вызовах выдает пустой результат...
Я так понимаю Блокирутся выполнение... как лечить????

Set db = CurrentDb
Set qd = db.CreateQueryDef("", "PARAMETERS DataE DateTime,DataB DateTime; Select * Into t30 from Result where (Result.Дата>=DataB and Result.Дата<=DataE)")
Set par1 = qd.Parameters!DataB
Set par2 = qd.Parameters!DataE
TempData = EditData
par1 = TempData - 30
par2 = TempData
qd.Execute

Выполняется, получаем T30 полную данных
теперь меняем
qd.Parameters!DataB = TempData - 31
qd.Parameters!DataE = TempData - 60
On Error GoTo Err_Execute
qd.Execute dbFailOnError

выполняется с пустой таблицей T30...
если эти же последние параметры поставить при первом запуске - все ОК таблица T30 имеет данные...


Поможите plz!!!

[Krasavica]

Что-то мне видится проблема в

qd.Parameters!DataB = TempData - 31
qd.Parameters!DataE = TempData - 60

Получается что дата конца на 29 дней меньше чем дата начала? Не в этом ли проблема пустого курсора ? Может их стоит местами поменять?