Dim Speicherpfad As String = "F:\\Test\Daten.xml"
        Dim Schemapfad As String = "F:\\Test\Daten.xsd"
 
        Dim MeinDataset As New DataSet
 
        MeinDataset.ReadXml(Speicherpfad)
        MeinDataset.WriteXmlSchema(Schemapfad)

        Try
            If System.IO.File.Exists(Speicherpfad) Then
                MeinDataset.Tables.Clear()
                MeinDataset.ReadXmlSchema(Schemapfad)
                MeinDataset.ReadXml(Speicherpfad)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        DataGridView1.DataSource = MeinDataset
        DataGridView1.DataMember = "Daten"

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist