Dim ds As New DataSet()
Try
Dim con As New SqlConnection("server=BAK;initial catalog=Test;uid=sa;pwd=sa")
con.Open()
Dim da As New SqlDataAdapter("select Emp_No,Emp_Name,Emp_GSM1 from Employee", con)
da.Fill(ds, "Employee")
Catch
'Label1.Text = "Error while connecting to a database"
End Try
Dim doc As New XmlDataDocument(ds)
Xml1.Document = doc
doc.Save("D:\Employee.xml")