Dim cn As New SqlConnection(My.Settings.MyConnectionString)
Using cmd As New SqlCommand("SELECT Name, ProductNumber FROM Production.Product FOR XML AUTO", cn)
cn.Open()
Dim xr As Xml.XmlReader = cmd.ExecuteXmlReader()
Dim ds As New DataSet
ds.ReadXml(xr, XmlReadMode.InferSchema)
End Using