' Nun die Playlisteinträge löschen
        ' *********************************************************************
        ' ********************************
        ' Durchläuft alle Datensätze der Tabelle Dateien, mit Filterung bzw. 
        ' Bedingung
        Dim DatensatzZähler As Integer
        DatensatzZähler = -1
        For Each row As DataRow In Musikdatenbank_DataSet.Dateien.Rows
            If BackgroundWorker1.CancellationPending = True Then
                e.Cancel = True
                Exit For
            Else
                If row("Playlist") <> "00000000" And row("Dateityp") = "mp3" Then
                    row("Playlist") = "00000000"
 
                    ' Do heavy Work
                    DatensatzZähler = DatensatzZähler + 1
                    DoHeavyWork()
                    BackgroundWorker1.ReportProgress(DatensatzZähler)
                End If
            End If
        Next
        ' *********************************************************************
        ' ********************************