>Public Function ImportXML2(ByVal tcXML As String)
>   Dim lcString As New StringReader(tcXML)
>   Dim loData As New DataSet
>   loData.ReadXml(lcString)
>   Return loData
>End Function
>