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

Function function1()
初始化sql表
更新sql表
Adodc1.Recordset.Requery
(显示)
end function1

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

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