查询或统计大量数据集合时 rs.open 后 界面无响应了,该如何解决

查询或统计大量数据集合时 rs.open 后 界面无响应了

请问   如何防止此现象呢  

大家都是怎么做的

[解决办法]
Dim WithEvents rs As ADODB.Recordset

Private Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
ProgressBar1.Max = MaxProgress
ProgressBar1.Value = Progress
End Sub