ProgressBar

[Joachim Donner]

Hallo,
ich habe folgenden Code (Auszug):

    ProgressBar1.maximum = i
    ProgressBar1.value = 0

    for i =1 to rs.RecordCount

      ProgressBar1.value = i
      ......
      ......

      rs.MoveNext
    next

Ich dachte nun würde sich der Balken schön bewegen, tut er aber nicht;  
erst nach dem "next" wird er mit dem "maximum" angezeigt.
Kann  mir jemand auf die Sprünge helfen?

Mit besten Grüßen
Jo