Escribir el contenido de mi tabla en un fichero XML

Imports System.Data.SqlClient
 
Public Class EcrireXML
    Public Shared Sub Main()
        ' creación de la cadena de conexión
        Dim connectString As String = "Server=SRV01;Database=Northwind;User ID=samfisher;Password=echelon"
        ' creación de la conexión
        Dim connection As SqlConnection = New SqlConnection(connectString)
 
        ' creación de SqlDataAdapter
        Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from Customers", connection)
 
        ' creación de un DataSet
        Dim ds As DataSet = New DataSet
 
        ' llenamos DataSet con el SqlDataAdapter
        da.Fill(ds, "Customers")
 
        ' creamos fichero XML usando WriteXml
        ds.WriteXml("E:\Temp\TestXml.xml")
    End Sub
End Class

<?xml version="1.0" standalone="yes" ?>
- <NewDataSet>
- <myTable>
<CustomerID>ALFKI</CustomerID>
 <CompanyName>Alfreds Futterkiste</CompanyName>
 <ContactName>Maria Anders</ContactName>
  <ContactTitle>Sales Representative</ContactTitle>
  <Address>Obere Str. 57</Address>
  <City>Berlin</City>
  <PostalCode>12209</PostalCode>
  <Country>Germany</Country>
  <Phone>030-0074321</Phone>
  <Fax>030-0076545