VB Code:
  1. 'after open connection and stuff do this ...
  2. Dim ds As New DataSet()
  3. Dim xmlstr As String
  4. xmlstr = ds.GetXml()