Именно так - и ВБ3 - 6 , и аксцесс, и Эксель висят, пока работает код.
Делается в цикле так:


for j= 1 to TableHeight

....

'вывести прогресс в модульную переменную
intProgress2XL = j / TableHeight * 100
strProgress2XL = "Вывод данных: " & intProgress2XL & "% выполнено."
DoEvents

Next

А включенный таймер формы, время от времени (но не в соответствии с установками, т.е. стоит ех: 1 сек, а он может обновиться раз в несколько сек.) получающий-таки управление,
выдает:

Sub Form_Timer()

lblProgress.Caption = strProgress2XL
Me.Repaint

End Sub

То есть ПРОВЕРЬ НАЛИЧИЕ ВТОРОЙ СТРОЧКИ В ТАЙМЕРЕ.

Да, БГ давно пора открыть ящик типа bugreport@m$ ;)))
А поиск придется дробить ручками...