Zur besseren Verständnis hier die Quellcodes:
Private Sub Form_Load()
Dim strSql As String
Dim rs As New ADODB.Recordset
Dim i As Integer
On Error GoTo Form_Load_err
rs.CursorLocation = adUseClient
'i = 1
strSql = "Select * From UserName order by UserName.Punkte desc"
rs.Open strSql, adoCon, adOpenStatic, adLockReadOnly
Do While Not rs.EOF
gridHighscore.AddItem vbTab & _
GetField(rs, "UserName") & vbTab & _
GetPunktestand(GetField(rs, "id"))
'i = i + 1
rs.MoveNext
Loop
'1, 1, 1, 2
gridHighscore.Select 1, 2
'gridHighscore.ColSort(0) = flexSortNone
gridHighscore.Sort = flexSortGenericDescending
'gridHighscore.Sort 0, gridHighscore.Rows - 1, 0, 1
rs.Close