Sub exportToExcel()
 
        'Declare Variables to create the excel application, workbook, sheet and chart
        Dim xlApp As Excel.Application
        Dim xlWkb As Excel.Workbook
 
        'Create the excel application
        xlApp = CreateObject("Excel.Application")
 
        'Add the workbook to the excel application
        xlWkb = xlApp.Workbooks.Add
 
        'Set up connection for database
        Dim con As New OleDb.OleDbConnection
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
 
        Dim sql As String
 
        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =  CONNECTION STRING"
 
        'Open the Connection to the database
        con.Open()
 
        'Pull information from the database
        sql = "SELECT * FROM table_name"
        da = New OleDb.OleDbDataAdapter(sql, con)
 
        da.Fill(ds, "Survey Results")
 
        Dim cb As New OleDb.OleDbCommandBuilder(da)
 
        Dim numRows As Integer = ds.Tables("Survey Results").Rows.Count - 1
 
        xlSessionCommentsExport(numRows, ds, xlWkb)
        xlBestExport(numRows, ds, xlWkb)
        xlTopicsExport(numRows, ds, xlWkb)
        xlNumericalExport(numRows, ds, xlWkb)
        xlSummaryExport(numRows, ds, xlWkb, con)
        With xlWkb
            .Sheets("Sheet1").Select()
            .ActiveSheet.Delete()
            .Sheets("Sheet2").Select()
            .ActiveSheet.Delete()
            .Sheets("Sheet3").Select()
            .ActiveSheet.Delete()
        End With
 
        xlApp.Visible = True
        con.Close()
    End Sub

    Private Sub xlSessionCommentsExport(ByVal numRows, ByVal ds, ByVal xlWkb)
 
        Dim i As Integer
        Dim dsRow As DataRow
 
        'Add the worksheet to the workbook
        Dim xlSessionComments As Excel.Worksheet
        xlSessionComments = xlWkb.Worksheets.Add
        xlSessionComments.Name = "Session Comments"
 
        With xlSessionComments
            .Range("A1:B1").Merge()
            .Range("A1:B1").FormulaR1C1 = "Session Comments"
 
            For i = 0 To numRows
                'get the current row
                dsRow = ds.Tables("Survey Results").Rows(i)
 
                'get the values required for this worksheet out of the current 
                'row and assign them to variables
                sessionComments = CheckDBNullStr(dsRow.Item("sessionComments"))
                .Range("B" & i + 2).FormulaR1C1 = sessionComments
            Next
            .Columns("B").WrapText = True
            .Columns("B:B").ColumnWidth = 110
            .Rows("1:" & numRows + 2).autofit()
        End With
 
    End Sub