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