Public Spieler As New ArrayList
    Dim SpName As String
 
    Public Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        ' ....
 
        Do While DBdatareader.Read()
            SpName = DBdatareader.Item("SpielerName")
            Spieler.Add(SpName)
        Loop
 
        Spieler.Sort()
        ListBox1.DataSource = Spieler
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist