Imports Form1.Dataset1
Imports System.Xml
Imports System.Data
 
Sub XML_Schreiben
Dim tba As Dataset1.DataTable = Dataset1.DataTable1
 
tba.WriteXml(D:\Irgendwas\XML.xml)
 
End Sub

Sub Datagrid_Füllen()
 
        Dim xmlFile As XmlReader
        xmlFile = XmlReader.Create(D:\Irgendwas\XML.xml, New XmlReaderSettings( _
          ))
        Dim ds As New DataSet
        ds.ReadXml(xmlFile)
        Dim i As Integer
 
        KMA.HLA_DataGridView.DataSource = ds.Tables(0)
 
 
    End Sub