Dim da_Musik As New SqlDataAdapter("SELECT * FROM v_Musik", connStr)
            Dim da_Song As New SqlDataAdapter("SELECT * FROM t_Songs", connStr)
            Dim da_MusikSong As New SqlDataAdapter("SELECT * FROM t_MusikSong", _
              connStr)
            Dim dt_Musik As New DataTable
            Dim dt_Song As New DataTable
            Dim dt_MusikSong As New DataTable
            da_Musik.Fill(dt_Musik)
            da_Song.Fill(dt_Song)
            da_MusikSong.Fill(dt_MusikSong)
            Dim bs_Musik As New BindingSource
            Dim bs_Song As New BindingSource
            Dim bs_MusikSong As New BindingSource
 
            'Alle Steuerelemente werden mit den entsprechenden 
            ' Datensatzeinträgen gefüllt
            bs_Musik.DataSource = dt_Musik
            l_musikid.DataBindings.Add("Text", bs_Musik, "ID")
            tb_musiktitel.DataBindings.Add("Text", bs_Musik, "Titel")
            tb_musikinterpret.DataBindings.Add("Text", bs_Musik, "Interpret")
            tb_musikland.DataBindings.Add("Text", bs_Musik, "Land")
            tb_musiklabel.DataBindings.Add("Text", bs_Musik, "Label")
            tb_musiklabelnr.DataBindings.Add("Text", bs_Musik, "Labelnummer")
            cb_musikdatenträger.DataBindings.Add("Text", bs_Musik, _
              "Datenträger")
            cb_musikkategorie.DataBindings.Add("Text", bs_Musik, "Kategorie")
            cb_musikzustand.DataBindings.Add("Text", bs_Musik, "Zustand")
            tb_musikerscheinungsjahr.DataBindings.Add("Text", bs_Musik, _
              "Erscheinungsjahr")
            rtb_musikkommentar.DataBindings.Add("Text", bs_Musik, "Kommentar")
 
            bs_MusikSong.DataSource = dt_MusikSong
 
            bs_Song.DataSource = dt_Song
            lb_musiksongs.DisplayMember = "Song"
            lb_musiksongs.ValueMember = "ID_Song"
            lb_musiksongs.DataBindings.Add("SelectedValue", bs_MusikSong, _
              "ID_Song")