Option Explicit
 
Dim WithEvents rec As Recordset
Dim conn As New Connection
 
Private Sub Command1_Click()
  Set rec = New Recordset
  rec.CursorLocation = adUseClient
  Set rec.ActiveConnection = conn
  rec.Open "Select * from authors", Options:=adAsyncFetchNonBlocking
End Sub
 
Private Sub Form_Load()
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biblio.mdb"
End Sub
 
Private Sub rec_FetchProgress(ByVal Progress As Long, _
  ByVal MaxProgress As Long,  adStatus As ADODB.EventStatusEnum, _
  ByVal pRecordset As ADODB.Recordset)
 
  Label1.Caption = rec.RecordCount
End Sub