不能完全清除内存，导致下次再进行同样操作时出错！

这是一个将access table导出到EXCEL的模块代码，调用这个模块后不能完全清除内存（能监视到），导致接着再次调用这个模块的时候前3段语句不能执行“对象变量或with块变量未设置”出错，如果退出程序再执行就没有问题，请问有什么办法在执行完成后就完全清除内存呢？   
1 .   ActiveSheet.name = Table
2 .  Worksheets("sheet2").Delete
3 .   Worksheets("sheet3").Delete
    xlBook.SaveAs PathVal
    MsgBox "已经输出" & PathVal & "表，请查看!", vbInformation, "Yams"
    xlBook.Close
    Set xlApp = Nothing '"交还控制给Excel
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Conn.Close
    Set Conn = Nothing