'Löschen der Zeilen der DGV
        Dim ZeilenAnzahl As Integer
        ZeilenAnzahl = DataGridView1.Rows.Count
        If ZeilenAnzahl > 1 Then
            For i As Integer = (ZeilenAnzahl - 2) To 0 Step -1
                DataGridView1.Rows.RemoveAt(i)
            Next i
        End If
 
 'Löschen der Table
        Dim TablesAnzahl As Integer
        TablesAnzahl = dataset1.Tables.Count
        If TablesAnzahl = 1 Then
            'For i As Integer = TabelsAnzahl To 0 Step -1
            dataset1.Tables.RemoveAt(0)
            'Next i
        End If
 
 'Hinzufügen einer Table und XML laden
        dataset1.Tables.Add(datatable1)
        dataset1.ReadXml(xml, XmlReadMode.InferSchema)
 
 'Erzeugen der Zeilen in der DGV und Füllen der DGV aus der Table 
        Dim anzahl_der_zeilen As Integer
        anzahl_der_zeilen = dataset1.Tables(0).Rows.Count()
        For i As Integer = 0 To anzahl_der_zeilen - 1
            DataGridView1.Rows.Add()
            For n As Integer = 0 To 5
                DataGridView1.Rows(i).Cells(n).Value = dataset1.Tables(0).Rows( _
                  i).Item(n)
            Next n
        Next i