如何判定窗体包括里面的控件全部装载完成？

Question

我想在较长时间检索数据库的时候，用一个小窗体Form2上面加个Label显示“正在进行数据库检索，请等待...”但是用以下两种方法都出现问题
方法1，在Form1中：
Private Sub Command1_Click()
     Adodc1.RecordSource = "select * from table1"
     Form2.Show (1)
     Adodc1.Refresh
     Form2.Visible = False
End Sub
以上做法在显示Form2后会停止相应，直到手动关闭Form2才能进行下一步的数据库刷新。方法2：
在Form1窗体中：
Private Sub Command1_Click()
     Adodc1.RecordSource = "select * from table1"
     Form2.Show (1)
End Sub
在Form2窗体中:
Private Sub Form_Load()
     Form1.Adodc1.Refresh  
End Sub
以上做法会使Form2窗体还没有显示完成就开始刷新。
请问有什么办法能解决这个问题？谢谢！

Answer 1

用方法2
Private Sub Form_Load()
     show
     Form1.Adodc1.Refresh  
End Sub

Answer 2

1楼的方法仍然不行，请问2楼的DoEvents怎么用？