<code>Private Sub Command14_Click() 
  With Adodc1
    .Refresh 
    .Recordset.Sort = " Punkte DESC " 
    .Recordset.MoveFirst 
    DataGrid1.Refresh 
    .Recordset!Rang = 1 
 
    AktuellePunkte = .Recordset!Punkte 
    AktuellerRang = 1 
 
    For i = 1 To .Recordset.RecordCount - 1 
      .Recordset.MoveNext 
      If .Recordset!Punkte = AktuellePunkte Then 
        .Recordset!Rang = "" 
      Else 
        AktuellerRang = AktuellerRang + 1 
        <font color=red>.Recordset!Rang = I + 1</font>
      End If 
      AktuellePunkte = .Recordset!Punkte 
    Next i 
    .Recordset.MoveFirst 
  End With
End Sub</code>