Windows System VB.Net

Option Explicit On 
Imports Microsoft.Office.Interop
Imports System.Data.SqlClient
Imports System.Data
Module ExcelExport
    Sub Main()
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        xlApp = New Excel.Application
        xlBook = xlApp.Workbooks.Add()
        xlSheet = xlBook.ActiveSheet
        xlSheet.Cells(1, 1) = "Employee Name"
        xlSheet.Cells(1, 2) = "Email"
        xlSheet.Cells(1, 3) = "Tel (Direct)"
        xlSheet.Cells(1, 4) = "Tel (Cell)"
        Dim ds As DataSet = GetEmployees()
        Dim dt As DataTable = ds.Tables.Item("Employees")
        Dim rowEmployee As DataRow
        Dim rowNo As Integer
        rowNo = 2
        For Each rowEmployee In dt.Rows
            xlSheet.Cells(rowNo, 1) = rowEmployee.Item("Name")
            xlSheet.Cells(rowNo, 2) = rowEmployee.Item("Email")
            xlSheet.Cells(rowNo, 3) = rowEmployee.Item("Direct")
            xlSheet.Cells(rowNo, 4) = rowEmployee.Item("Cell")
            rowNo += 1
        Next
        xlApp.Visible = True
        xlApp.UserControl = True
        xlBook = Nothing
        xlSheet = Nothing
        xlApp = Nothing
    End Sub
    Function GetEmployees() As DataSet
        Dim strConn = "Data Source=POWER2003;Initial Catalog=Book;" _
            & "User ID=sa;Password=sa"
        Dim cn As New SqlConnection(strConn)
        cn.Open()
        Dim strSelectSql As String = "select * From Employees"
        Dim cmdSelect As New SqlDataAdapter(strSelectSql, cn)
        Dim ds As New DataSet
        cmdSelect.Fill(ds, "Employees")
        cn.Close()
        GetEmployees = ds
    End Function
End Module