Salut,
Il d'abord connaître le nombres de records que tu as dans ta bdd(cela sera la valeur Max de la progress). La valeur Min de la progress étant de 0, puisque l'on part de 0 > max records.
Si tu utilises une boucle, il faut insérer donc ta progress à l'intérieur de celle-ci :
Private Sub Command1_Click()
' Init progress
Progress.Min = 0
' Imaginons que tu as une boucle qui
' compte tout tes enregistrments dans ta base
' Ici tu donne la max à la progress
Progress.Max = RecordSet.RecordCount
While Not RecordSet.Eof
.....
........
...........
Progress.Value = Progress.Value + 1
RecordSet.MoveNext
Wend
A+
Exploreur
Linux a un noyau, Windows un pépin 