' Erstellen eines leeren DataSet
  dim ds as new DataSet("MeinDataSet")

  'Erstellen einer neuen Tabelle und neuer Spalten
  dim dTabelle as New DataTable("Benutzer")
  dTabelle.Columns.Add("Vorname", System.Type. _
     GetType("System.String"))
  dTable.Columns.Add("Nachname", System.Type. _
     GetType("System.String"))
  dTabelle.Columns.Add("BenutzerID", System.Type. _
     GetType("System.Int32"))
  dTabelle.Columns("BenutzerID").AutoIncrement = true

  'Tabelle hinzufügen
  ds.Tables.Add(dTabelle)

  'Primärschlüssel definieren
  dim schluessel() as DataColumn = {ds.Tables("Benutzer"). _
     Columns("BenutzerID")}
  ds.Tables("Benutzer").PrimaryKey = schluessel

  'Hinzufügen einer einfachen Zeile
  dim dr as DataRow = dTabelle.NewRow()
  dr(0) = "Chris"
  dr(1) = "Payne"
  dTabelle.Rows.Add(dr)