VB怎么关闭Excel进程

VB如何关闭Excel进程
如下代码检测Excel工作薄的记录数，但运行结束后Excel进程还在任务管理器显示。请教如何才能完全关闭Excel进程。
Dim   xlApp   As   New   Excel.Application,   pTable   As   String

Private   Sub   Command1_Click()
On   Error   GoTo   ErrHandle:

        Set   xlApp   =   CreateObject( "Excel.Application ")

        xlApp.Visible   =   False
        Dim   i   As   Integer
        xlApp.Workbooks.Open   ( "f:\工作表.xls ")
        Dim   conn   As   New   ADODB.Connection,   rs   As   New   ADODB.Recordset
        Dim   strSQL   As   String
        '获取工作薄名称
        For   i   =   1   To   xlApp.Sheets.Count
                pTable   =   xlApp.Sheets(i).Name
                strSQL   =   "SELECT   *   FROM     [ "   +   pTable   +   "$] "
                conn.ConnectionString   =   "Driver={Microsoft   Excel   Driver   _(*.xls)}; "   &   "DriverId=790;   DBQ=F:\工作表.xls; "
                conn.CursorLocation   =   adUseClient      
                conn.Open
                Set   rs   =   conn.Execute(strSQL)
                conn.Close
                Set   rs   =   Nothing
                msgbox   CStr(rs.RecordCount)
        Next
        xlApp.Workbooks.Close
        xlApp.Quit
        Set   xlApp   =   Nothing
        If   Not   (xlApp   Is   Nothing)   Then
                xlApp.Quit
                Set   xlApp   =   Nothing
        End   If
        MsgBox   "计算完成！ "
        Exit   Sub
ErrHandle:
        MsgBox   CStr(Err.Number)   +   Err.Description
End   Sub


[解决办法]
可能是错误跳转后没有执行quit

ErrHandle:
xlApp.Quit
Set xlApp = Nothing
MsgBox CStr(Err.Number) + Err.Description

[解决办法]
Set rs = Nothing
msgbox CStr(rs.RecordCount)
后面这句有问题吧，rs都Nothing了，怎么还能取记录数。