Imports System.Data.SqlClient
 
 
Module Module1
 
    Sub Main()
 
        Dim server As String = ""
        Dim sqlCon As New SqlConnection("Data Source=" + server + ";Integrated Security=True")
        sqlCon.Open()
        Dim sqlCmd As New SqlCommand("SELECT * FROM Employees", sqlCon)
        Dim sqlAdapter As New SqlDataAdapter(sqlCmd)
        Dim dTable As New DataTable("Employees")
        sqlAdapter.Fill(dTable)
        dTable.WriteXml("Employees.xml")
 
        Console.ReadKey()
 
    End Sub