Imports System
Imports System.IO
Imports System.Data.OleDb
Public Class Form1
    Dim DB As OleDbConnection
    Dim DBcomando As OleDbCommand
    Dim DBdatareader As OleDbDataReader
    Dim strCmd As String
    Dim dbFile As String
    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
 
 
        dbFile = "C:\temp\Fussball.accdb"
        DB = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
          "Source=" + _
                dbFile + ";Persist Security Info=False;")
        DB.Open()
        strCmd = ("select * from Fussball")
        DBcomando = New OleDbCommand(strCmd, DB)
 
        DBdatareader = DBcomando.ExecuteReader()
        DBcomando = Nothing
        DBdatareader.Read()
 
        Do While DBdatareader.Read()
 
            SpName = DBdatareader.Item("SpielerName")
            Spieler.Add(SpName)
            Array.Sort(SpName)
            ListBox1.Items.Add(SpName)
        Loop
 
    End Sub
End Class

        strCmd = ("select * from Fussball Order By SpielerName")

________
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

EALA FREYA FRESENA

    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