Friend Function songliste(ByVal lb As ListBox, ByVal MusikID As Integer, ByVal _
   bs As BindingSource, ByVal l As Label) As ListBox
        MusikID = l.Text
        Dim da_Song As New SqlDataAdapter("SELECT * FROM t_Songs WHERE ID_Musik" & _
          "= " & MusikID, connStr)
        Dim dt_Song As New DataTable
        da_Song.Fill(dt_Song)
        bs.DataSource = dt_Song
        lb.DataSource = bs
        lb.DisplayMember = "Song"
        Return lb
    End Function