vb中如何实现进程进行时的显示问题

Question

Function function1()
初始化sql表
更新sql表
Adodc1.Recordset.Requery
(显示)
end function1Function function2()
Do While rs.EOF = False(两条以上的符合)
call function1
end function2
大体代码结构如上，但是每次调用页面总是显示最后一条执行的结果，如何让每一次调用都可以显示一下。代码已经实现，问如何两次调用都出显示？

Answer 1

因为程序是顺序执行的，你看到的结果当然是最后一条的执行结果，你如果想看到前一个结果，可以在 function1中加个暂停语句，等个两三秒再执行。

Answer 2

具体如何实现？请给点代码，我用sleep也只是慢了几秒，也是直接显示最后的结果