VBA错误：运行时错误2046命令或操作退出现在不可用

Question

以下VBA代码已经工作了一年多。

我正在运行Microsoft Access 2013

Public Function AutoUpdate()
    Dim cdb As DAO.Database
    Set cdb = CurrentDb
    'AutoCrawle 'a function that does the expected task.
    Set cdb = Nothing
    Application.Quit
End Function

最近会引发以下错误：

  

运行时错误2046命令或操作“退出”现在不可用。

它是从以下行生成的：Application.Quit

任何想法为什么会这样？随着时间的推移，由于记录集的增长，该文件已经增长了两个2千兆字节。

编辑：同样没有AutoCrawle功能的情况也会发生。所以我评论了它。