SQL = "SELECT DISTINCT Lehrer, COUNT(*) FROM Schüler GROUP BY Lehrer"
 
Set oRecordset = DB.OpenRecordset(SQL)
 
    With oRecordset
      If Not (.BOF And .EOF) Then
        .MoveLast
        .MoveFirst
        While Not .EOF ' = True
        frmMain.lstSchüler.AddItem oRecordset.Fields(1).Value & "  " & _
          oRecordset.Fields(0).Value
 
          .MoveNext
        Wend
      End If
    End With
    oRecordset.Close
    Set oRecordset = Nothing

SQL = "SELECT DISTINCT Lehrer, COUNT(*) FROM Schüler ORDER BY COUNT ASC;"

- mag -