VB .NET: Excel application process is not terminating in Task Manager - Windows 2000 Pro

Why isn't the process terminating?



Here is the code:



Public Sub fnMonthlyReport()
        Dim filename
        filename = "c:\MonthlyReport\Report_" & Year(Now) & "_" & IIf(Month(Now) < 10, "0" & Month(Now), Month(Now)) & "_" & IIf(Day(Now) < 10, "0" & Day(Now), Day(Now))

        Dim excelApp = New Excel.Application()
        Dim excelWorksheet As Excel.Worksheet
        Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add

        excelWorksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)

        Dim book As Excel.Workbook
        Dim sheet As Excel.Worksheet
        Dim ae As New AEList.AEList()

        dsAEList = ae.fnReturnAEList

        'this will make excel never popup prompt windows
        '     excelApp.Application.DisplayAlerts = False

        excelApp.DisplayAlerts = False

        'Me.excelBook.Application.DisplayAlerts = False


        For Each drAEList In dsAEList.Tables(0).Rows
            ' for your request 1

            fnMonthlyReportSheet(excelBook.Worksheets.Add(after:=excelBook.Worksheets(excelBook.Worksheets.Count)), drAEList)

            ' for your request 2
            book = excelApp.Workbooks.Add()
            fnMonthlyReportSheet(book.Worksheets(1), drAEList)
            book.Worksheets("Sheet2").Delete()
            book.Worksheets("Sheet3").Delete()
            book.SaveAs(filename & "_" & fnCleanString(drAEList(1)) & ".xls")
            book.Close()  ' I think you what to close it
        Next 'Next AE
        excelBook.Worksheets("Sheet1").Delete()
        excelBook.Worksheets("Sheet2").Delete()
        excelBook.Worksheets("Sheet3").Delete()
        excelBook.SaveAs(filename & ".xls")
        excelBook.Close() ' do you want to close it????

        excelApp.Application.Quit()
        excelApp = Nothing

    End Sub