Dim conn As SqlConnection = New SqlConnection(connStr)
da_MusikSong.UpdateCommand = New SqlCommand("UPDATE t_Inhalt, t_Musik," & _
  "t_Kategorie, t_Datenträger, t_Zustand SET t_Inhalt.Titel=@Titel" & _
                ", t_Musik.Interpret=@Interpret, t_Musik.Label=@Label" & _
                ", t_Musik.Labelnummer=@Labelnummer," & _
                "t_Musik.Erscheinungsjahr=@Erscheinungsjahr" & _
                ", t_Musik.Kommentar=@Kommentar, t_Musik.Land=@Land" & _
                ", t_Kategorie.Kategorie=@Kategorie," & _
                "t_Datenträger.Datenträger=@Datenträger" & _
                ", t_Zustand.Zustand=@Zustand WHERE ID_Musik='" & _
                l_musikid.Text & "'", conn)
 
da_MusikSong.UpdateCommand.Parameters.Add("@Titel", SqlDbType.VarChar, 50, _
  "Titel")
da_MusikSong.UpdateCommand.Parameters.Add("@Interpret", SqlDbType.VarChar, 50, _
"Interpret")
da_MusikSong.UpdateCommand.Parameters.Add("@Label", SqlDbType.VarChar, 50, _
"Label")
da_MusikSong.UpdateCommand.Parameters.Add("@Labelnummer", SqlDbType.VarChar, _
50, "Labelnummer")
da_MusikSong.UpdateCommand.Parameters.Add("@Erscheinungsjahr", _
SqlDbType.VarChar, 50, "Erscheinungsjahr")
Dim intContentLength As Integer = Len(rtb_musikkommentar.Text)
da_MusikSong.UpdateCommand.Parameters.Add("@Kommentar", SqlDbType.Text, _
  intContentLength, "Kommentar")
da_MusikSong.UpdateCommand.Parameters.Add("@Land", SqlDbType.VarChar, 50, _
"Land")
da_MusikSong.UpdateCommand.Parameters.Add("@Kategorie", SqlDbType.VarChar, 50, _
"Kategorie")
da_MusikSong.UpdateCommand.Parameters.Add("@Datenträger", SqlDbType.VarChar, _
50, "Datenträger")
da_MusikSong.UpdateCommand.Parameters.Add("@Zustand", SqlDbType.VarChar, 50, _
"Zustand")
Dim para As SqlParameter = da_MusikSong.UpdateCommand.Parameters.Add( _
"@ID_Musik", SqlDbType.VarChar, 50)
para.SourceColumn = "ID_Musik"
para.SourceVersion = DataRowVersion.Original
 
 
bs_MusikSong.EndEdit()
da_MusikSong.Update(ds_MusikSong, "tMusik")<-------- Falsche Syntax in der Nähe _
  von ','.