Progress Bar com gravação de banco

David,

Crie um formulário com um progressbar, CommandButton e com um Data, onde vc pode clocar o bd que quiser(teste com o Biblio por exemplo, pois é bem grande e permitirá que tenha uma noção exata do que esta acontecendo), e coloque o código abaixo, é simples mais bastante útil, quando se trata de grandes quantidades de informação, o usário não ficará pensando que seu sistema travou!

Private Sub Command1_Click()
On Error GoTo Final
ProgressBar1.Visible = True
ProgressBar1.Min = 0
Data1.Recordset.MoveLast
ProgressBar1.Max = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF
    ProgressBar1.Value = ProgressBar1.Value + 1
    Me.Caption = "Carregando registro " & ProgressBar1.Value & " de " & ProgressBar1.Max
Loop

Final:
    ProgressBar1.Visible = False
    Exit Sub

End Sub

Esta dica esta na secao de dicas da VBWEB.