...AsNew SqlConnection("Integrated Security=True;" & _
"Server=PSA607;" & _
"Initial Catalog=Pubs")
Dim MyCommand AsNew SqlDataAdapter("Select * from Employee", Connection)
Dim dsEmployee AsNew DataSet
MyCommand.Fill(dsEmployee, "Employee")
Dim XmlDoc As XmlDataDocument = New...