Добрый день, товарищи! Помогите в решении проблемы пожалуйста!

Есть база-клиент которая обращается к основной раз в минуту за данными и выводит их на экран, что то вроде электронной очереди.
На 2003 акссесе работало прекрасно, никаких проблем не было, но настала необходимость сменить версию на 2010, и тут все это порушилось.

в 2003 схема обновления была проста: на форме находиться 3 субформы, в каждом отображается своя очередь. Обновление по таймеру раз в минуту. Код обновления был такой:

Dim q As QueryDef 
Dim rs As DAO.Recordset
Dim frm As Form

For i = 1 To 3
Select Case i
Case 1
yrd = "E"
Case 2
yrd = "S"
Case 3
yrd = "W"
End Select

Set q = CurrentDb.QueryDefs("quTVfin") ' в запросе все хорошо, рабочий.
    q.Parameters("[Yrde]").Value = yrd
    q.Parameters("[ParamDate]").Value = TestTime
    q.Parameters("[t1]").Value = DateAdd("h", -3, testTime)
    q.Parameters("[t2]").Value = DateAdd("h", 3, testTime)
    Set rs = q.OpenRecordset()

Set frm = Forms("TV")("qTVsub" & yrd).Form
    
set frm.Recordset = rs
Next i

В 2010 эта же схема работает, но не долго( т.е. как только сворачиваешь окно, либо что то делаешь на компе, он виснет наглухо, и уже больше не отходит, если не трогать может работать часами. Периодически удавалось увидеть ошибку присвоения рекордсета, изменил вместо присвоения рекордсета - шло обновление рекордсурс, но это тоже не помогло.

Может кто встречался с таким?
Заранее спасибо!

http://www.sql.ru/forum/1106360/visnet-forma