Private Sub TabelleReorganisieren()
Dim i As Long, nKombi As Long, min As Long, max As Long
Dim goDb As DAO.Database
Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
Set mkrs = goDb.OpenRecordset("SELECT * FROM [Irgendwas] ORDER BY A DESC, B" & _
  "DESC, C DESC, D DESC, E DESC")
Me.Caption = "Cash4Us - Datenfelder werden reorganisiert"
PicProgress1.Visible = True
min = 0: nKombi = 1
max = mkrs.RecordCount
i = 1
Do While Not mkrs.EOF
      mkrs.Edit
      '...Datensatz füllen
      mkrs.Fields("Zahl") = Format(i, "#,##0")
      '...Datensatz aktualisieren
      mkrs.Update
      If i Mod 10000 = 1 Then
        Call ShowProgressBar(PicProgress1, nKombi, min, max)
        DoEvents
      End If
      nKombi = nKombi + 1
      mkrs.MoveNext
Loop
'...Recordset schließen
  mkrs.Close
  Set mkrs = Nothing
PicProgress1.Visible = False
End Sub