DataReport не дружит с DAO?

При попытке в DataReport создать отчёт из только что записанной таблицы вижу в нём необновлённые результаты. Правильного результата добился только введением задержки на 4-5 секунд. Но это же маразм!
Подскажите,плз. как правильно решается эта проблема.

Вот код:

Private Sub cmdPrint_Click()
Me.Hide

' очищаем таблицу от старых записей
Dim rsReport As Recordset
dbSclad.Execute 'Delete from CurrentReport'
' добавляем новые
Set rsReport = dbSclad.OpenRecordset('CurrentReport')
Dim i As Integer
For i = 0 To Me.lstNacladnajaName.ListCount - 1
With rsReport
.AddNew
.Fields('Num') = CStr(i + 1)
.Fields('name') = lstNacladnajaName.List(i)
.Fields('price') = Me.lstNacladnajaPrice.List(i)
.Fields('amount') = Me.lstNacladnajaAmount.List(i)
.Fields('sum') = Me.lstNacladnajaSummaryPrice.List(i)
.Fields('Unit') = Me.lstNacladnajaUnits.List(i)
.Update
End With
Next i

rsReport.Close
' ждём 4с пока отработает обновление рекордсета, иначе не работает
Dim cTime As Long
cTime = GetTickCount + 4000
Do
DoEvents
Loop While GetTickCount < cTime

' конвертируем в текстовый(HTML) файл
drToDepartament.Sections(1).Controls(1). Caption = ' Накладная передачи товара в отдел № ' & CurrentDepartament
drToDepartament.ExportReport rptKeyHTML, App.Path & 'export.txt', True, False

drToDepartament.Show vbModal

Unload drToDepartament
Unload DataEnvironment1

End Sub

0