Dim ds As New DataSet    'Tabelle erstellen
    Dim dt As New DataTable  'Dataset erstellen 
 
    dt.TableName = "Table1"  'Tabelle taufen
    ds.Tables.Add(dt)        'Tabelle dem Set zuordnen
 
    dt.Columns.Add("Spalte1")   'Spalte erstellen
 
    dt.Rows.Add("igendetwas")  'Zeilen erstellen und füllen
    dt.Rows.Add("alter Wert")
    dt.AcceptChanges()         `Tabelle aktualisieren
 
    'weitere Referenz auf Tabelle besorgen
    Dim table As DataTable = ds.Tables("Table1")
 
    'Zeile aus der Tabelle abfragen (Referenz)
    Dim row As DataRow = table.Rows(0)
 
    'Wert in Spalte1 der Row ändern
    row("Spalte1") = "neuerWert"
 
    'Geänderte Zeilen über Tabellen-Referenzen abfragen
    Dim dtc1 As DataTable = dt.GetChanges()
    Dim dtc2 As DataTable = ds.Tables("Table1").GetChanges
    Dim dtc3 As DataTable = table.GetChanges
 
    'man bekommt in jedem Fall Zugriff auf die gleiche Instanz der Tabelle 
    Dim testwert1 As String = CType(dtc1.Rows(0)("Spalte1"), String)
    Dim testwert2 As String = CType(dtc2.Rows(0)("Spalte1"), String)
    Dim testwert3 As String = CType(dtc3.Rows(0)("Spalte1"), String)