Module Program
    Dim _XmlDoc As XmlDocument
    Dim _XmlCommand As XmlElement

    Sub VisitReader(ByVal reader As DbDataReader)
        VisitReader(reader, _XmlCommand)
    End Sub

    Sub VisitReader(ByVal reader As DbDataReader, ByVal xmlParent As XmlElement)
        Dim xmlResult As XmlElement = _XmlDoc.CreateElement("Result")
        xmlParent.AppendChild(xmlResult)

        Do While (reader.Read())
            VisitRecord(reader, xmlResult)
        Loop
    End Sub

    Sub VisitRecord(ByVal record As IDataRecord, ByVal xmlParent As XmlElement)
        Dim xmlRecord As XmlElement = _XmlDoc.CreateElement("Record")
        xmlParent.AppendChild(xmlRecord)

        For i = 0 To record.FieldCount - 1
            Dim name As String = record.GetName(i)
            Dim xmlProperty As XmlElement = _XmlDoc.CreateElement(XmlConvert.EncodeName(name))
            xmlRecord.AppendChild(xmlProperty)

            If (record.IsDBNull(i)) Then
                xmlProperty.InnerText = "[NULL]"
                Continue For
            Else
                Dim type As Type = record.GetFieldType(i)
                If type Is GetType(DbDataRecord) Then
                    Dim nestedRecord As DbDataRecord = DirectCast(record.GetValue(i), DbDataRecord)
                    VisitRecord(nestedRecord, xmlProperty)
                ElseIf type Is GetType(DbDataReader) Then
                    Dim nestedReader As DbDataReader = DirectCast(record.GetData(i), DbDataReader)
                    VisitReader(nestedReader, xmlProperty)
                ElseIf type Is GetType(EntityKey) Then
                    Dim key As EntityKey = DirectCast(record.GetValue(i), EntityKey)
                    Dim builder As New StringBuilder

                    builder.Append(key.EntitySetName)
                    builder.Append("[")
                    Dim isFirstTime As Boolean = True
                    For Each keyMember As EntityKeyMember In key.EntityKeyValues
                        If (isFirstTime <> True) Then
                            builder.Append(";")
                        End If
                        isFirstTime = False
                        builder.AppendFormat("{0}={1}", keyMember.Key, keyMember.Value.ToString())
                    Next
                    builder.Append("]")

                    xmlProperty.InnerText = builder.ToString()
                Else
                    xmlProperty.InnerText = record.GetValue(i).ToString()
                End If
            End If
        Next i
    End Sub

    Sub Main()
        Using conn As EntityConnection = New EntityConnection("name=AdventureWorksEntities")
            conn.Open()

            _XmlDoc = New XmlDocument()
            _XmlCommand = _XmlDoc.CreateElement("Command")
            _XmlDoc.AppendChild(_XmlCommand)

            ' Create a query.
            Dim esqlQuery As String = " Select c.ContactID, c.SalesOrderHeader " & _
                           "From AdventureWorksEntities.Contact as c"

            ' Create an EntityCommand.
            Using cmd As EntityCommand = conn.CreateCommand()
                cmd.CommandText = esqlQuery
                ' Execute the command.
                Using rdr As EntityDataReader = cmd.ExecuteReader(CommandBehavior.SequentialAccess)
                    ' Start reading results and 
                    ' write them to _XmlDoc.
                    VisitReader(rdr)
                    ' Output the content of_XmlDoc content to console.
                    _XmlDoc.Save(New StreamWriter(Console.OpenStandardOutput()))
                End Using
            End Using
            conn.Close()
        End Using

    End Sub
End Module

class Program
{
    static XmlDocument _XmlDoc;
    static private XmlElement _XmlCommand;

    static public void VisitReader(DbDataReader reader)
    {
        VisitReader(reader, _XmlCommand);
    }

    static private void VisitReader(DbDataReader reader, 
                                    XmlElement xmlParent)
    {
        XmlElement xmlResult = _XmlDoc.CreateElement("Result");
        xmlParent.AppendChild(xmlResult);

        while (reader.Read())
        {
            VisitRecord(reader, xmlResult);
        }
    }

    static private void VisitRecord(IDataRecord record, XmlElement xmlParent)
    {
        XmlElement xmlRecord = _XmlDoc.CreateElement("Record");
        xmlParent.AppendChild(xmlRecord);

        for (int i = 0; i < record.FieldCount; i++)
        {
            string name = record.GetName(i);
            XmlElement xmlProperty = _XmlDoc.CreateElement(XmlConvert.EncodeName(name));
            xmlRecord.AppendChild(xmlProperty);

            if (record.IsDBNull(i))
            {
                xmlProperty.InnerText = "[NULL]";
                continue;
            }
            else
            {
                Type type = record.GetFieldType(i);
                if (type.Equals(typeof(DbDataRecord)))
                {
                    DbDataRecord nestedRecord = record.GetValue(i) as DbDataRecord;
                    VisitRecord(nestedRecord, xmlProperty);
                }
                else if (type.Equals(typeof(DbDataReader)))
                {
                    DbDataReader nestedReader = record.GetData(i) as DbDataReader;
                    VisitReader(nestedReader, xmlProperty);
                }
                else if (type.Equals(typeof(EntityKey)))
                {
                    EntityKey key = record.GetValue(i) as EntityKey;
                    StringBuilder builder = new StringBuilder();

                    builder.Append(key.EntitySetName);
                    builder.Append("[");
                    bool isFirstTime = true;
                    foreach (EntityKeyMember keyMember in key.EntityKeyValues)
                    {
                        if (!isFirstTime)
                        {
                            builder.Append(";");
                        }
                        isFirstTime = false;
                        builder.AppendFormat("{0}={1}", 
                            keyMember.Key, keyMember.Value.ToString());
                    }
                    builder.Append("]");

                    xmlProperty.InnerText = builder.ToString();
                }
                else
                {
                    xmlProperty.InnerText = record.GetValue(i).ToString();
                }
            }
        }
    }
    static void Main(string[] args)
    {
        using (EntityConnection conn =
            new EntityConnection("name=AdventureWorksEntities"))
        {
            conn.Open();

            _XmlDoc = new XmlDocument();
            _XmlCommand = _XmlDoc.CreateElement("Command");
            _XmlDoc.AppendChild(_XmlCommand);

            // Create a query.
            string esqlQuery = @" Select c.ContactID, c.SalesOrderHeader
                        From AdventureWorksEntities.Contact as c";

            // Create an EntityCommand.
            using (EntityCommand cmd = conn.CreateCommand())
            {
                cmd.CommandText = esqlQuery;
                // Execute the command.
                using (EntityDataReader rdr =
                    cmd.ExecuteReader(CommandBehavior.SequentialAccess))
                {
                    // Start reading results and 
                    // write them to _XmlDoc.
                    VisitReader(rdr);
                    // Output the content of_XmlDoc content to console.
                    _XmlDoc.Save(new StreamWriter(Console.OpenStandardOutput()));
                }
            }
            conn.Close();
        }
    }
}