Visual Basic - Quisiera saber si este codigo esta bien

saludos antes de nada

quisiera saber si este codigo haria que el progressbar progresara mientras cuenta los recordset , el problema es que hay pocos registros en la base de datos y lo hace muy rapido y no me da tiempo a ver el progreso, no me da ningun error y el progressbar termina lleno pero no se si va bien.

Dim i As Integer
If Data1.Recordset.RecordCount = 0 Then
Bar1.Visible = False
Exit Sub

Else

Bar1.Max = Data1.Recordset.RecordCount

For i = 0 To Data1.Recordset.RecordCount

Bar1.Value = i

Next i

'Bar1.Visible = False

End If

saludos

yo veo el codigo bien,quizas deberias multiplicar el data1.recordset.recordcount por 100 o 1000 para que te de tiempo a verlo

Ok LM gracias por tu interes eso hare