bueno nadie me contesto, pero ya encontre la solución
Código VB:
Ver original'Lee y construye un XML a partir de la tabla customers de NorthWind
Dim ds As New DataSet
Dim path = Server.MapPath("~/customers.xml") 'ubicación donde se guarda archivo, carpeta del proyecto
Try
'Cambiar Server:
Using conn As New SqlConnection("Server=dadabit\sqlexpress;integrated security=true;database=Northwind;uid=sa;pwd=;")
Dim command As New SqlCommand("select * from customers", conn)
conn.Open()
ds.DataSetName = "Customers"
ds.Load(command.ExecuteReader(), LoadOption.OverwriteChanges, "customers")
ds.WriteXml(path, XmlWriteMode.IgnoreSchema) 'escribe archivo XML sin schema
Response.ContentType = "text/xml"
ds.WriteXml(Response.OutputStream) ' escribe resultado en pantalla
End Using
MsgBox("XML de customers creado")
Catch excepcion As SqlException
MsgBox("Ocurrio una Excepción en la conexión")
End Try