请大师帮助：ADO在Open时出现"灾难性故障"提示，不知为什么?

qdzbk

ADO在Open时出现灾难性故障提示，不知为什么?我在网上也没查到解决办法，只能请大师帮助了。代码如下：
    Dim cnn As Object, SQL As String, arr, brr(), i&, j&
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;hdr=no';Data Source =" & ThisWorkbook.Path & "\源数据.xls"
当执行到这一句时，出现如下提示：


在家里的电脑中运行正常，但到单位电脑上运行就出错，电脑都是XP操作系统和Office2003完整版，一样的系统，不知为什么？

qdzbk

有多天了，没人解决，看来这很难解决，原因不明。
望高手早日出现！！！

dyp1610

我试了，根本就没有问题，建议将你的附件发上来，看一看。

microyip

出问题的机器上的Office可能有文件损坏了，重装一次就应该解决

vbee

未在本地计算机上注册“microsoft.ACE.oledb.12.0”提供程序解决办法

去http://download.microsoft.com/do ... sDatabaseEngine.exe下载。然后安装就行了。