prima di iniziare il ciclo di Do Loop devi settare la proprietā Max della progressbar altrimenti ti genera errore, e per maggiore serenitā ti consiglio di risettargli pure la Min:
codice:
Sub CiclaRecordset() 
... 
   ProgressBar1.Value = 0 
   ProgressBar1.Min = 0
   ProgressBar1.Max = Recordset.RecordCount
   Recordset.MoveFirst 
   Do Until Recordset.EOF
      ProgressBar1.Value = ProgressBar1.Value + 1
      Recordset.MoveNext 
   Loop 
... 
End Sub