Se devi muovere una ProgressBar, potresti fare così:
codice:
Private Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
   With ProgressBar1
      .Min = 0
      .Max = MaxProgress
      .Value = Progress
   End With
End Sub
Gli argomenti passati dall'evento:
Progress: valore di tipo Long che indica il numero corrente di record elaborati dall'operazione fetch
MaxProgress: valore di tipo Long che indica il numero massimo di record attesi in elaborazione
adStatus: uno dei seguenti valori: adStatusCancel, adStatusCantDeny, adStatusErrorsOccurred, adStatusOK, adStatusUnwantedEvent
pRecordset: l'oggetto di tipo Recordset nel quale si sta eseguendo l'operazione

Attenzione perchè le proprietà Min, Max e Value del controllo ProgressBar sono di tipo Integer, mentre Progress e MaxProgress sono di tipo Long. Se il numero di record da elaborare supera il limite di un integer (+32768) occorre dividere Progress e MaxProgress per un coefficiente.