private void ReadWriteXMLDocWithStreamReader ( ) {
   // create a DataSet with one table and two columns.
   DataSet OriginalDataSet = new DataSet ( "myDataSet" );
   OriginalDataSet.Namespace = "NetFrameWork";
   DataTable myTable = new DataTable ( "myTable" );
   DataColumn c1 = new DataColumn ( "id",
      Type.GetType ( "System.Int32" ) );
   c1.AutoIncrement = true;
   DataColumn c2 = new DataColumn ( "item" );
   myTable.Columns.Add ( c1 );
   myTable.Columns.Add ( c2 );
   OriginalDataSet.Tables.Add ( myTable );
   // add ten rows.
   DataRow newRow;
   for ( int i = 0; i < 10; i++ ) {
      newRow = myTable.NewRow ( );
      newRow [ "item" ] = "item " + i;
      myTable.Rows.Add ( newRow );
  }
   OriginalDataSet.AcceptChanges ( );
   // print out values of each table in the DataSet using the function defined below.
   PrintValues ( OriginalDataSet, "Original DataSet" );
   // write the schema and data to XML file with StreamWriter.
   string xmlFilename = "myXmlDocument.xml";
   // create a new StreamWriter.
   myStreamWriter = new System.IO.StreamWriter ( xmlFilename );
   // use WriteXml to write the document.
   OriginalDataSet.WriteXml ( myStreamWriter );
   // close the FileStream.
   myStreamWriter.Close ( );
   // dispose of the original DataSet.
   OriginalDataSet.Dispose ( );
   // create a new DataSet.
   DataSet newDataSet = new DataSet ( "New DataSet" );
   // create a StreamReader to read the file.
   myStreamReader = new System.IO.StreamReader ( xmlFilename );
   // read the XML document into the DataSet.
   newDataSet.ReadXml ( myStreamReader );
   // close the StreamReader.
   myStreamReader.Close ( );
   // print out values of each table in the DataSet using the function defined below.
   PrintValues ( newDataSet,"New DataSet" );
}

private void PrintValues ( DataSet ds, string label ) {
   Response.Write ( "<br>" + label );

   foreach ( DataTable t in ds.Tables ) {
      Response.Write ( "TableName: " + t.TableName );

      foreach ( DataRow r in t.Rows ) {

         foreach ( DataColumn c in t.Columns ) {
            Response.Write ( "\t " + r [ ] );
         }
          Response.Write ( );
     }
   }
}

Private Sub ReadWriteXMLDocWithStreamReader ( )
   ' create a DataSet with one table and two columns.
   Dim OriginalDataSet As New DataSet ( "myDataSet" )
   OriginalDataSet.Namespace = "NetFrameWork"
   Dim myTable As New DataTable ( "myTable" )
   Dim c1 As New DataColumn ( "id", Type.GetType ( "System.Int32" ) )
   c1.AutoIncrement = True
   Dim c2 As New DataColumn ( "item" )
   myTable.Columns.Add ( c1 )
   myTable.Columns.Add ( c2 )
   OriginalDataSet.Tables.Add ( myTable )
   ' add ten rows.
   Dim newRow As DataRow
   Dim i As Integer
   For i = 0 To 9
      newRow = myTable.NewRow ( )
      newRow ( "item" ) = "item " + i.ToString ( )
      myTable.Rows.Add ( newRow )
   Next i
   OriginalDataSet.AcceptChanges ( )
   ' print out values of each table in the DataSet using the function defined below.
   PrintValues ( OriginalDataSet, "Original DataSet" )
   ' write the schema and data to XML file with StreamWriter.
   Dim xmlFilename As String = "myXmlDocument.xml"
   ' create a new StreamWriter.
   Dim myStreamWriter As New System.IO.StreamWriter ( xmlFilename )
   ' Use WriteXml to write the document.
   OriginalDataSet.WriteXml ( myStreamWriter )
   ' close the FileStream.
   myStreamWriter.Close ( )
   ' dispose of the original DataSet.
   OriginalDataSet.Dispose ( )
   ' create a new DataSet.
   Dim newDataSet As New DataSet ( "New DataSet" )
   ' create a StreamReader to read the file.
   Dim myStreamReader As New System.IO.StreamReader ( xmlFilename )
   ' Read the XML document into the DataSet.
   newDataSet.ReadXml ( myStreamReader )
   ' close the StreamReader.
   myStreamReader.Close ( )
   ' print out values of each table in the DataSet using the function defined below.
   PrintValues ( newDataSet, "New DataSet" )
End Sub

Private Sub PrintValues ( ds As DataSet, label As String )
   Response.Write ( ControlChars.Cr + label )
   Dim t As DataTable
   For Each t In  ds.Tables
      Response.Write ( "TableName: " + t.TableName )
      Dim r As DataRow
      For Each r In  t.Rows
         Dim c As DataColumn
         For Each c In  t.Columns
             Response.Write ( ControlChars.Tab + " " + r ( c ).ToString ( ) )
         Next c
         Response.Write ( )
      Next r
   Next t
End Sub