Private Sub Daten6aus45LfdNrNeu()
Dim Anz(8000000) 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 SumA DESC," & _
  "SumB DESC, SumC DESC, SumD DESC")
 
'PicProgress1.Visible = True
 
With mkRs
  .MoveFirst
    max = .RecordCount
    For i = 1 To UBound(Anz)
      '...Datensatz editieren
      mkRs.Edit
      mkRs.Fields("KombiID") = Format(i, "##,##0")
      '...Datensatz aktualisieren
      mkRs.Update
      If i Mod 10000 = 1 Then
       ' Call ShowProgressBar(PicProgress1, nKombi, min, max)
      End If
      nKombi = nKombi + 1
      .MoveNext
    DoEvents
    Next i
End With
'PicProgress1.Visible = False
'...Recordset schließen
  mkRs.Close
  Set mkRs = Nothing
End Sub