Try
      Dim da As OleDbDataAdapter
      Dim dt As DataTable
      da = New OleDbDataAdapter("SELECT * FROM [Werte]" & _
      "ORDER BY [Aa] DESC, [Be] DESC, [Ce] DESC, [De] DESC, [Nr] ASC", conn)
      Dim cb As New OleDbCommandBuilder(da)
      dt = New DataTable("Werte")
      da.Fill(dt)
      Dim i As Integer
      i = 1
      For Each cRow As DataRow In dt.Rows
        'hier sollte die Spalte mit i gefüllt werden
        'rein logisch betrachtet müsste auch .BeginEdit und .EndEdit 
        'plaziert werden. 
        cRow!lID = i
        i = i + 1
      Next
 da.Update(dt)
    Catch ex As Exception
      MessageBox.Show(ex.Message, "Fehler! Sortierung fehlgeschlagen")
    End Try