how to create an XML file from database using vb.net

See more:

VB

SQL-Server

I want to create XML file from database table using vb.net
As i tried my code is:

<% @Import Namespace="System" %>
<% @Import Namespace="System.Data" %>
<% @Import Namespace="System.xml" %>
<% @Import Namespace="System.Data.SqlClient" %>
<% @Import Namespace="System.xml.xmlNode" %>
<Script runat="server">
sub page_load
        Dim connectionString As String
        Dim connection As SqlConnection
        Dim adapter As SqlDataAdapter
        Dim ds  As New DataSet
        Dim sql As String

        connectionString = ///my connection string////
        connection = New SqlConnection(connectionString)

        sql = "select * from jb_jobs where city='Los Angeles' "
        connection.Open()
            adapter = New SqlDataAdapter(sql, connection)
            adapter.Fill(ds)
            connection.Close()
        If IO.File.Exists("product.xml") = False Then
            Dim settings As New XmlWriterSettings()
            settings.Indent = True
        Dim XmlWrt As XmlWriter = XmlWriter.Create("c:/xmlfiles/product.xml", settings)
        XmlWrt  .WriteStartDocument()
        XmlWrt  .WriteComment("XML Database.")
        XmlWrt  .WriteStartElement("source")
        XmlWrt  .WriteStartElement("jobs")



        XmlWrt  .WriteEndElement()
        XmlWrt  .WriteEndDocument()
        XmlWrt  .Close()
        Response.write("XML File Created")
        End If
        End Sub

</script>

and my output is just a XML file is created with the root elements but not with the data's from database
How to resolve this????