Dim _DSKunden As New DataSet("Kundendaten")
        Dim _DTKunden As New DataTable("Kunden")
 
        With _DTKunden.Columns
            .Add("KundenNr", Type.GetType("System.String"))
            .Add("Kundenname", Type.GetType("System.String"))
            .Add("Kundenlogin", Type.GetType("System.String"))
            .Add("KundenPw", Type.GetType("System.String"))
        End With
 
        _DSKunden.Tables.Add("_DTKunden")
 
        'Nur für Test
        Dim _myRow As DataRow
        _myRow = _DTKunden.NewRow
        _myRow("Kundennr") = "100"
        _myRow("Kundenname") = "Max Mustermann"
        _myRow("Kundenlogin") = "ABCDEFGH"
        _myRow("KundenPw") = "123456"
        _DTKunden.Rows.Add(_myRow)
 
        _DTKunden.AcceptChanges()
        _DSKunden.AcceptChanges()
 
        DgvKunden.DataSource = _DTKunden
        DgvKunden.Refresh()
        DgvKunden.Show()
 
        Dim _KundenPfad As String = Path.Combine(My.Settings.Ordner_IniDatei, _
          "Kunden.xml")
        Dim _KundenXMLStream As New System.IO.FileStream(_KundenPfad, _
        System.IO.FileMode.Create)
        Dim _KundenXMLWriter As New System.Xml.XmlTextWriter(_KundenXMLStream, _
        System.Text.Encoding.Unicode)
        _DSKunden.WriteXml(_KundenXMLWriter)
        _KundenXMLWriter.Close()

<Kundendaten />

Private Sub WriteXmlToFile(thisDataSet As DataSet)
    If thisDataSet Is Nothing Then
        Return
    End If
 
    ' Create a file name to write to.
    Dim filename As String = "XmlDoc.xml"
 
    ' Create the FileStream to write with.
    Dim stream As New System.IO.FileStream _
       (filename, System.IO.FileMode.Create)
 
    ' Create an XmlTextWriter with the fileStream.
    Dim xmlWriter As New System.Xml.XmlTextWriter _
       (stream, System.Text.Encoding.Unicode)
 
    ' Write to the file with the WriteXml method.
    thisDataSet.WriteXml(xmlWriter)
    xmlWriter.Close()
End Sub

          _DSKunden.ReadXml(_KundenPfad)
 
            DgvKunden.DataSource = _DTKunden
            DgvKunden.Refresh()
            DgvKunden.Show()

Dim _dskunden2 As New DataSet 'neues leeres Datset
_dskunden2.ReadXml(_KundenPfad) 'XML-Datei gemäß Kundenpfad lesen
 
'Tabelle per Name direkt aus Tables-Auflistung des gefüllten Dataset binden
dgvKunden.DataSource = _dskunden2.Tables("Kunden")
'oder:
_dtKunden = _dskunden2.Tables("Kunden") 'Referenzvariable zuweisen
dgvKunden.DataSource = _dtKunden 'Tabelle an Datagridview binden

Dim _dskunden2 As New DataSet 'neues leeres Datset
_dskunden2.ReadXml(_KundenPfad) 'XML-Datei gemäß Kundenpfad lesen
 
'Tabelle per Name direkt aus Tables-Auflistung des gefüllten Dataset binden
dgvKunden.DataSource = _dskunden2.Tables("Kunden")

Dim _dskunden2 As New DataSet 'neues leeres Datset
 
Dim _dtkunden2 As New DataTable("Kunden") 'neue leere Tabelle "Kunden" erzeugen
 
_dskunden2.Tables.Add(_dtkunden2) 'Tabelle "Kunden" an das Dataset knüpfen
 
_dskunden2.ReadXml(_KundenPfad) 'XML-Datei gemäß Kundenpfad lesen
 
dgvKunden.DataSource = _dtkunden2

Dim _dskunden2 As New DataSet 
'Eine Referenzvariable zu einem Dataset wird erstellt (_dskunden2)
'Ein Dataset-Objekt wird im Speicher erstellt (New)
'Die Referenzvariable verweist auf das neue Dataset
 
 
Dim _dtkunden2 As New DataTable("Kunden") 
'Eine Referenzvariable zu einer Datatable wird erstellt (_dtkunden2)
'Ein DataTable-Objekt wird im Speicher erstellt (New)
'Die Referenzvariable verweist auf die neue Datatable
 
 
_dskunden2.Tables.Add(_dtkunden2)
'Der Tables-Auflistung des Dataset wird eine Referenz
'auf das Datatable-Objekt hinzugefügt, das unter dtKunden2
'erstellt worden ist 
 
 
_dskunden2.ReadXml(_KundenPfad)
'Die Methode ReaXML erzeugt aus dem File im Kundenpfad (Schema und Daten)
'ein NEUES Datatable-Objekt und fügt eine Referenz der 
'Dataset-Auflistung hinzu (Dataset-Inhalt ist zuvor gelöscht worden).
'Der Tabellen-Name dieses neuen Objekts entspricht dem Namen, der
'beim Schreiben eingetragen war, dessen Spalten-Objekte werden gemäß
'dem Schema, dessen Zeilenobjekte gemäß den Daten erstellt (wie geschrieben).
 
 
dgvKunden.DataSource = _dtkunden2
'Die Referenzvariable dtKunden2 zeigt immer noch auf das leere
'Datatable-Objekt, das in der zweiten Zeile erstellt worden ist.
'Im Grid wird nichts angezeigt.
 
'Ergänzung:
_dtKunden2 = _dsKunden2.Tables("Kunden")
'Jetzt zeigt die Referenzvariable auf die gelesene Tabelle "Kunden"
'(Objekt im Speicher)
'Das zuerst erstellte Datatable-Objekt verliert seine letzte Referenz,
'wird freigegeben und danach zerstört.

'Die Methode ReaXML erzeugt aus dem File im Kundenpfad (Schema und Daten)
'ein NEUES Datatable-Objekt und fügt eine Referenz der 
'Dataset-Auflistung hinzu