problema al generar XML

[dadabit]

Hola, tengo un problema al generar un XML, bueno en realidad lo genera, pero como guardo ese XML en un archivo, tal vez con el código me entiendan:

vb

Código:

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")
                Response.ContentType = "text/xml"
                ds.WriteXml(Response.OutputStream)

esto me genera el XML en el web, pero lo que necesito es escribirlo a un XML ese resultado...

gracias por su ayuda..

[dadabit]

bueno nadie me contesto, pero ya encontre la solución

Código VB:

'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