Hi Juan,

Ask and you shall recieve. 

I'll give you some code to put the response into a DataTable, you can then add the DataTable to a DataSet. 

This piece of code could be further enhanced to incorporate meta-data from the describe call to type the DataColumns appropriately.  This will allow for proper formatting to be applied to numerical values and currencies.  Using the describe results you can also set column captions to the label values for each field as well as handle the custom fields a little easier.

static public DataTable GetDataTable(Object results)
{
 DataTable table = new DataTable();
 table.TableName = "sforce";
 System.Xml.XmlNode[] nodes = (System.Xml.XmlNode[])results;

 //create the columns in the datatable
 foreach (System.Xml.XmlNode resNode in nodes)
 {
  foreach (System.Xml.XmlNode rowNode in resNode.ChildNodes)
  {
   foreach (System.Xml.XmlNode columnNode in rowNode.ChildNodes)
   {
    if (table.Columns[columnNode.Name] == null)
    {
     DataColumn dtc = table.Columns.Add(columnNode.Name);
     if (columnNode.Attributes.Item(0).InnerText == "xsd:double")
      dtc.DataType = typeof(Double);
     if (columnNode.Name.StartsWith("cf"))
      //look up the lable of the field
      dtc.Caption = LookupCFLabel(columnNode.Name);
    }
   }
  }
 }
 //loop through the rows and add them to the datatable
 foreach (System.Xml.XmlNode resNode in nodes)
 {
  foreach (System.Xml.XmlNode rowNode in resNode.ChildNodes)
  {
   if (rowNode is System.Xml.XmlElement)
   {
    DataRow row = table.NewRow();
    foreach (System.Xml.XmlNode columnNode in rowNode.ChildNodes)
    {
     row[columnNode.Name] = columnNode.InnerText;
    }
    //add the row to the datatable
    table.Rows.Add(row);
   }
  }
 }
 return table;
}

And in VB:

    Public Function GetDataTable(ByVal results As Object) As DataTable
        Dim table As New DataTable
        Dim nodes() As System.Xml.XmlNode = CType(results, System.Xml.XmlNode())

        'create the columns in the datatable
        For Each resNode As System.Xml.XmlNode In nodes
            For Each rowNode As System.Xml.XmlNode In resNode.ChildNodes
                For Each columnNode As System.Xml.XmlNode In rownode.ChildNodes
                    If table.Columns(columnnode.Name) Is Nothing Then table.Columns.Add(columnNode.Name)
                Next
            Next
        Next
        For Each ds As Data.DataColumn In table.Columns
            Debug.WriteLine(ds.ColumnName)
        Next
        'loop through the rows and add them to the datatable
        For Each resNode As System.Xml.XmlNode In nodes
            For Each rowNode As System.Xml.XmlNode In resnode.ChildNodes
                If TypeOf rowNode Is System.Xml.XmlElement Then
                    Dim row As DataRow = table.NewRow()
                    For Each columnNode As System.Xml.XmlNode In rowNode.ChildNodes
                        row(columnNode.Name) = columnNode.InnerText
                    Next
                    'add the row to the datatable
                    table.Rows.Add(row)
                End If
            Next
        Next

        Return table
    End Function