Private Sub TabelleReorganisieren()
Dim Anz(800000) As Long, 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 = 800000
With mkRs
  .MoveFirst
    For i = 1 To UBound(Anz)
      '...Datensatz editieren
      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
      .MoveNext
    Next i
End With
'...Recordset schließen
  mkRs.Close
  Set mkRs = Nothing
PicProgress1.Visible = False
End Sub