'Inhalt speichern in irgendeiner irgendeine.txt
        Using sw As New IO.StreamWriter("irgendeine.txt", False, _
          System.Text.Encoding.Default)
            For Each myrow As DataGridViewRow In datagrifview.Rows
                sw.Write(myrow.Cells(0).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(1).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(2).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(3).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(4).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(5).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(6).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(7).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(8).Value)
                sw.Write(vbTab)
                sw.Write(myrow.Cells(9).Value)
 
                sw.WriteLine()
            Next
        End Using

        'Dataset erzeugen
        Dim dataset1 As New DataSet
        'Datatable erzeugen
        Dim datatable1 As New DataTable
        'Datatable dem Dataset hinzufügen
        dataset1.Tables.Add(datatable1)
 
 
        'Datatable soviele Spalten hinzufügen wie das Datagridview hat
        Dim anzahl_der_spalten As Integer
        anzahl_der_spalten = DataGridView1.Columns.Count
 
        For i As Integer = 0 To anzahl_der_spalten - 1
            dataset1.Tables(0).Columns.Add()
        Next i
 
 
        'Jede Zeile im Datagridview1 der Datatable hinzufügen
        Dim anzahl_der_zeilen As Integer
        anzahl_der_zeilen = DataGridView1.Rows.Count - 1
 
        For i As Integer = 0 To anzahl_der_zeilen - 1
 
            'Eine Zeile des Datatables erzeugen/hinzufügen
            dataset1.Tables(0).Rows.Add()
 
            'Spalte mit Werten füllen
            For n As Integer = 0 To anzahl_der_spalten - 1
                dataset1.Tables(0).Rows(i).Item(n) = DataGridView1.Rows( _
                  i).Cells(n).Value
            Next n
 
        Next i
 
        'DataSet schreiben in XML Datei
        dataset1.Tables(0).WriteXml("irgendeine.xml")