function DataSetErstellen as DataSet
     'Ein Array mit Farben erstellen
     dim i as integer
     dim arrFarben() as String
     if ViewState("Farben") is nothing then
        arrFarben = new String(6) {"rot", "orange", _
           "gelb", "grün", "blau", "indigo", "lila"}
        ViewState("Farben") = arrFarben
     else
        arrFarben = ViewState("Farben")
     end if
        
     'Ein leeres DataSet erstellen
     ds = new DataSet("MeinDataSet")
        
     'Eine neue Tabelle und Spalten erstellen
     dim dTabelle as New DataTable("Farben")
     dTabelle.Columns.Add("Farbe", GetType(String))
     dTabelle.Columns.Add("ID", GetType(Int32))
     'Tabelle hinzufügen
     ds.Tables.Add(dTabelle)
          
     'Zeilen hinzufügen
     for i = 0 to 6
        dim dr as DataRow = dTabelle.NewRow()
        dr(0) = arrFarben(i).ToString
        dr(1) = i
        dTabelle.Rows.Add(dr)
     next
        
     return ds
  end function