How to serialize a report to XML with an untyped DataSet as a data source

C#
public class CustomUntypedDataSetSerializer : IDataSerializer {  
        public const string Name = "CustomUntypedDataSetSerializer";  
        public bool CanSerialize(object data, object extensionProvider) {  
            return (data is DataSet);  
        }  
        public string Serialize(object data, object extensionProvider) {  
            if (data is DataSet) {  
                DataSet ds = data as DataSet;  
                System.Text.StringBuilder sb = new System.Text.StringBuilder();  
                XmlWriter writer = XmlWriter.Create(sb);  
                ds.WriteXml(writer, XmlWriteMode.WriteSchema);  
                return sb.ToString();  
            }  
            return string.Empty;  
        }  
        public bool CanDeserialize(string value, string typeName, object extensionProvider) {  
            return typeName == "System.Data.DataSet";  
        }  
        public object Deserialize(string value, string typeName, object extensionProvider) {  
            DataSet ds = new DataSet();  
            using (XmlReader reader = XmlReader.Create(new StringReader(value))) {  
                ds.ReadXml(reader, XmlReadMode.ReadSchema);  
            }  
            return ds;  
        }  
}  

Visual Basic
Public Class CustomUntypedDataSetSerializer  
        Implements IDataSerializer  

        Public Const Name As String = "CustomUntypedDataSetSerializer"  
        Public Function CanSerialize(ByVal data As Object, ByVal extensionProvider As Object) As Boolean Implements IDataSerializer.CanSerialize  
            Return (TypeOf data Is DataSet)  
        End Function  
        Public Function Serialize(ByVal data As Object, ByVal extensionProvider As Object) As String Implements IDataSerializer.Serialize  
            If TypeOf data Is DataSet Then  
                Dim ds As DataSet = TryCast(data, DataSet)  
                Dim sb As New System.Text.StringBuilder()  
                Dim writer As XmlWriter = XmlWriter.Create(sb)  
                ds.WriteXml(writer, XmlWriteMode.WriteSchema)  
                Return sb.ToString()  
            End If  
            Return String.Empty  
        End Function  
        Public Function CanDeserialize(ByVal value As String, ByVal typeName As String, ByVal extensionProvider As Object) As Boolean Implements IDataSerializer.CanDeserialize  
            Return typeName = "System.Data.DataSet"  
        End Function  
        Public Function Deserialize(ByVal value As String, ByVal typeName As String, ByVal extensionProvider As Object) As Object Implements IDataSerializer.Deserialize  
            Dim ds As New DataSet()  
            Using reader As XmlReader = XmlReader.Create(New StringReader(value))  
                ds.ReadXml(reader, XmlReadMode.ReadSchema)  
            End Using  
            Return ds  
        End Function  
End Class  

C#
//in the static form constructor  
static Form1() {  
     SerializationService.RegisterSerializer(CustomUntypedDataSetSerializer.Name, new CustomUntypedDataSetSerializer());  
}  

//when initializing a report  
void InitReport(){  
     //...  
     report.Extensions[SerializationService.Guid] = CustomUntypedDataSetSerializer.Name;  
     //...  
}  

Visual Basic
'in the static form constructor  
Shared Sub New()  
          SerializationService.RegisterSerializer(CustomUntypedDataSetSerializer.Name, New CustomUntypedDataSetSerializer())  
End Sub  

'when initializing a report  
Private Shared Sub InitReport(ByVal report As XtraReport)  
            '...  
            report.Extensions(SerializationService.Guid) = CustomUntypedDataSetSerializer.Name  
            '...  
End Sub