尝试访问数据库时Excel崩溃

症状：

当我运行我的代码时，下面的代码Excel突然关闭

Private Sub OpenConnection()

   If Not (DBCon.State And adStateOpen) = adStateOpen Then DBCon.Open "Provider = Microsoft.ACE.OLEDB.12.0; data source=C:\Users\bissonp\Desktop\ai\ai2.accdb;"

End Sub 

Excel VBA中的引用如下

Visual Basic For Applications

Microsoft Excel 15.0对象库

OLE自动化

Microsoft Office 15.0对象库

Microsoft ActiveX数据对象6.1库

Microsoft脚本运行时

Microsoft DAO 3.6对象库

Excel和Access都是64位的

我用MS Excel和Access 2016在一台计算机上运行了这个程序，它运行正常。关于如何解决Excel崩溃的任何建议。谢谢

编辑：按照评论中的建议使用事件查看器，我有以下错误

Faulting application name: EXCEL.EXE, version: 15.0.5045.1000, time stamp: 0x5b0d303b
Faulting module name: mso.dll, version: 0.0.0.0, time stamp: 0x5b1fa456
Exception code: 0xc0000005
Fault offset: 0x00000000005b0e04
Faulting process id: 0x4f00
Faulting application start time: 0x01d4305c562934ce
Faulting application path: C:\Program Files\Microsoft Office\Root\Office15\EXCEL.EXE
Faulting module path: C:\Program Files\Common Files\Microsoft Shared\Office15\mso.dll
Report Id: 7450046f-8670-463f-b15f-48faccf15016
Faulting package full name: 
Faulting package-relative application ID: 

及

---

听起来像恶作剧。你在办公室里有“朋友”吗？除此之外，我无能为力，但解释它是如何关闭的可能会给某人提供识别问题所需的信息。它是一个受控的出口，终止事件是否触发，它是否崩溃，是否有日志或消息？工作的版本来自工作计算机，而“崩溃”的版本来自我自己的个人计算机。我想没有人在玩我的家用电脑。当我重新打开意外关闭的excel文件时，它将以“已恢复”的形式打开。我在哪里可以获得excel的日志？有时它只是在“崩溃”后自行重新打开。如果启用，事件查看器将有崩溃日志。两台不同的电脑？。请告诉我您为不同的环境更新了代码。我已经更新了源目标，但我可以告诉您，在我需要访问数据库之前，其余代码运行顺利。我已粘贴在事件查看器中发现的错误。感谢您让我知道事件查看器。

Fault bucket 1277345556296028794, type 4
Event Name: APPCRASH
Response: Not available
Cab Id: 0

Problem signature:
P1: EXCEL.EXE
P2: 15.0.5045.1000
P3: 5b0d303b
P4: mso.dll
P5: 0.0.0.0
P6: 5b1fa456
P7: c0000005
P8: 00000000005b0e04
P9: 
P10: 

Attached files:
\\?\C:\Users\pasca\AppData\Local\Temp\1828426875.cvr
\\?\C:\Users\pasca\OneDrive\Desktop\ai\ai2.xlsm
\\?\C:\Users\pasca\AppData\Local\Temp\CVR6E26.tmp.cvr
\\?\C:\ProgramData\Microsoft\Windows\WER\Temp\WER9584.tmp.WERInternalMetadata.xml
\\?\C:\ProgramData\Microsoft\Windows\WER\Temp\WER95A4.tmp.xml
\\?\C:\ProgramData\Microsoft\Windows\WER\Temp\WER95C3.tmp.csv
\\?\C:\ProgramData\Microsoft\Windows\WER\Temp\WER95E3.tmp.txt

These files may be available here:
C:\ProgramData\Microsoft\Windows\WER\ReportArchive\AppCrash_EXCEL.EXE_274d175a8bce6eaa415e2ad0764c80f2fd668880_00000000_748b9a18

Analysis symbol: 
Rechecking for solution: 0
Report Id: 7450046f-8670-463f-b15f-48faccf15016
Report Status: 2147487744
Hashed bucket: 2c96ba3a635c42dce1ba0b040a72d27a
Cab Guid: 0