cn.Execute ("update [Main] set [ObjStrName]='" & Text3.Text & "',[TipStr]=" & Val(Text2.Text) & ",[TipObjKlass]=" & kodKlassif & "," & _
"[NasPunkt]=" & id_np & ",[Ulica]=" & id_ul & ",[NDoma]='" & Text5.Text & "',[CtrPyatno]='" & _
Text6.Text & "',[RaspObj]='" & Text7.Text & "',[Zak]=" & Val(DC3.BoundText) & ",[Podr]=" & _
Val(DC4.BoundText) & ",[NRStr]='" & Text10.Text & "',[DRStr]='" & Text11.Text & "',[DoRStr]='" & Text12.Text & "'," & _
"[NRVvod]='" & Text13.Text & "',[DRVvod]='" & Text14.Text & "',[DPriostStr]='" & Text15.Text & _
"',[id_sost]=" & DC5.BoundText & ",[Proc]=" & Val(Text16.Text) & ",[Tip]='" & Text20.Text & _
"',[IstFin]='" & Text17.Text & "',[DopInf]='" & Text18.Text & "',[Prim]='" & Text19.Text & "',[GSP]=" & id_GSP & " where id=" & id)

DoEvents
rsTbl.Requery
DoEvents
MainForm.MGrid.Refresh

Вот.Собственно requery никакого эффекта не дает, в grid выводится старая запись.То же самое и с запросами insert и delete.Requery срабатывает только секунд через 6-7.Что я не правильно делаю?

собственно работают запросы с одной таблицей в таблице 72 поля, одно ключевое.