Private Sub MedieSQL_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
Dim da_Speicherort As New SqlDataAdapter("SELECT * FROM t_Songs WHERE Song='" & _
Song & "'", connStr)
        Dim dt_Speicherort As New DataTable
        da_Speicherort.Fill(dt_Speicherort)
        bs_Speicherort.DataSource = dt_Speicherort
        l_musikspeicherort.DataBindings.Add("Text", bs_Speicherort, _
          "Speicherort")
End Sub

Private Sub b_musikändern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles b_musikändern.Click
        With ofd_musik
            .Filter = "Musik (*.mp3)|*.mp3|Alle Dateien (*.*)|*.*"
            .FilterIndex = 1
            .InitialDirectory = "C:\"
            .Title = "Wähle den Song aus"
            If .ShowDialog() = DialogResult.OK Then
                l_musikspeicherort.Text = .FileName
 
            End If
        End With
    End Sub

Private Sub b_musikspeichern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles b_musikspeichern.Click
                Dim da_Speicherort As New SqlDataAdapter("SELECT * FROM t_Songs" & _
                "WHERE Song='" & Song & "'", connStr)
        Dim dt_Speicherort As New DataTable
        da_Speicherort.Fill(dt_Speicherort)
        bs_Speicherort.EndEdit()
        da_Speicherort.Fill(dt_Speicherort)
    End Sub