I have the following which converts from XML to DataSet:

   ' Convert an XML string, which is a VFP CursorToXml(), into a DataSet
   ' expC1 String
   Public Function ImportXML(ByVal tcXML As String)
      Dim lcString As New StringReader(tcXML)
      Dim loData As New DataSet
      loData.ReadXml(lcString)
      Return loData
   End Function

I would like to have a similar function to convert from DataSet to XML.