Option Compare Database
Public WithEvents Rs As ADODB.Recordset
Public bound As Boolean
 
Private Sub Rs_FetchComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'можно подключать рекордсет к форме после окончания загрузки всех записей'
'Set Me.Recordset = Rs'
'здесь уже можно вставить код для поиска'



End Sub

Private Sub Rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Call SysCmd(acSysCmdSetStatus,  "receive from "  & Progress &  " to "  & MaxProgress)
If Not bound Then
'можно подключать рекордсет к форме после полчения первых записей, но запомнить что уже подключение сделано'
    Set Me.Recordset = Rs
    bound = True
End If
End Sub

Private Sub Кнопка2_Click() ' у меня в демопримере повешено на кнопку, но разумнее делать на загрузку '
Set Rs = New ADODB.Recordset
bound = False
    Rs.CursorLocation = adUseClient
    'вместо PROGRESS_PROC нужно указать имя большой таблицы, процедуры или вьюва  '
    Rs.Open  "PROGRESS_PROC" , CurrentProject.Connection, adOpenDynamic, adLockReadOnly, adAsyncExecute + adAsyncFetchNonBlocking
'On Error Resume Next 'пока рекордсет не получил записей его нельзя биндить к форме
'Set Me.Recordset = Rs
End Sub

    Rs.Open  "PROGRESS_PROC" , CurrentProject.Connection, adOpenDynamic, adLockReadOnly, adAsyncExecute + adAsyncFetchNonBlocking