Public Sub collection()
 
        Dim db As New clsDB
        DBdatareader = db.Datenbank("select * from Fussball")
        Dim sp As clsSpieler
        Try
            Dim i As Integer = 0
 
            Do While DBdatareader.Read()
                i = i + 1
                '#############################################################
                sp = New clsSpieler
                sp.Name = DBdatareader.Item("SpielerName").ToString
                sp.Alter = DBdatareader.Item("SpielerAlter").ToString
                sp.Position = DBdatareader.Item("SpPosition").ToString
                sp.Größe = DBdatareader.Item("Größe").ToString
                sp.Fuss = DBdatareader.Item("Fuss").ToString
                sp.Nationalität = DBdatareader.Item("Nationalität").ToString
                sp.Wert = DBdatareader.Item("Wert").ToString
                sp.Id = CDbl(DBdatareader.Item("ID"))
                Spieler.Add(sp)
                '############################################################
                Dim actualeSpieler As clsSpieler
                actualeSpieler = Spieler.Item(i)
                frmFussball.ComboBox1.Items.Add(actualeSpieler.Name)
            Loop
        Catch ex As Exception
 
        End Try
 
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        ComboBox1.Items.Clear()
 
        Try
                        For Each actualeSpieler In Spieler
                ComboBox1.Items.Add(actualeSpieler.Nationalität)
            Next
        Catch ex As Exception
 
        End Try

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ListBox1.Items.Clear()
        actualeSpieler = Spieler.Item(ComboBox1.SelectedIndex + 1)
        ListBox1.Items.Add(actualeSpieler.Name)
 
    End Sub