in memory xmldoc to datatable

[struggleforlife]

Another XML question.

I am ably to load a XML file (via a filepath) to a datatable. See code below.
However, I'd like to be able to load a in-memory XML document to a datatable.

Can anyone help me out?

Public Function XmlToDataTable(ByRef filePath As String) As DataTable 

        Dim ds As New DataSet 
        Dim dt As New DataTable 
        ds.ReadXml(filePath) 
        dt = ds.Tables(0).Copy() 

        Return dt 

End Function