Imports System.Xml

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connetionString As String

        Dim connection As SqlConnection

        Dim adapter As SqlDataAdapter

        Dim ds As New DataSet

        Dim sql As String



        connetionString = "Data Source=servername;Initial Catalog=databsename;User ID=username;Password=password"

        connection = New SqlConnection(connetionString)

        sql = "select * from Product"

        Try

            connection.Open()

            adapter = New SqlDataAdapter(sql, connection)

            adapter.Fill(ds)

            connection.Close()

            ds.WriteXml("Product.xml")

            MsgBox("Done")

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try



    End Sub

End Class