Private Sub tm_loader()
    dir = New DirectoryInfo(tm_setting.pfad_sicherungsdatei)
    tm_table = New DataTable
    tm_table = Class_TM.bu_tm_columns(tm_table)
    Dim linq_data As IEnumerable(Of Class_TM) = Class_TM.bu_linq(dir)
    tm_table = Class_TM.bu_tm_rows(linq_data, tm_table, tm_setting)
   ' Dim bu_files As IEnumerable(Of FileInfo) = From files In dir.GetFiles( 
   ' "*.bak") spielt hier keine Rolle
    DataGridView1.DataSource = tm_table
End Sub

Private Sub FSW1_Deleted(sender As Object, e As IO.FileSystemEventArgs) Handles _
  FSW1.Deleted
        tm_table.Rows.Clear()
       ' tm_table = Class_TM.bu_tm_columns(tm_table) die Spalten sind schon 
       ' vorhanden
        Dim linq_data As IEnumerable(Of Class_TM) = Class_TM.bu_linq(dir)
        tm_table = Class_TM.bu_tm_rows(linq_data, tm_table, tm_setting) ' nur 
        ' die Zeilen sollten neu hinzu gefügt werden
End Sub