我用Excel VBA 怎么无法连上Access数据库？请高手指教

Question

我的程序如下：
    Dim Cnn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim myData As String, myTable As String
    Dim myFields As Variant, myValue As Variant    myData = ThisWorkbook.Path & "\接点库.mdb"    '指定数据库
    myTable = "接点数据"    '指定数据表名称    
    With Cnn    '建立与数据库的连接
        .Provider = "microsoft.jet.oledb.4.0"
        .Open myData
    End With
    
    '创建指定数据表的记录集
    Rs.Open myTable, Cnn, adOpenKeyset, adLockOptimistic
但每次运行到  .Open myData 时就会出错，出错提示是：
   
   
      运行时错误‘3706’
      未找到提供程序。该程序可能未正确安装。不知是什么程序未正确安装？我在引用里选择了“Microsoft ActiveX Data Objects 2.5”，
是不是还要加选别的引用？
   
请高手给予指教，本人不胜感激！
 

Answer 1

myTable 应该是一个SQl 语句吧？

Answer 2

谢谢回复，但程序还没执行到含myTable语句时就出错了

Answer 3

那估计你的这个
ThisWorkbook.Path & "\接点库.mdb"    '指定数据库 
得到的数据库全路径有问题，debug一下看看是不是你想要的数据库。

Answer 4

ThisWorkbook.Path & "\接点库.mdb
得到的是我要指定的数据库。我用绝对路径也是出同样错误

Answer 5

我试了一下，不会出错呀！
你引用的是 microsoft activeX Data Objects 2.8 library 吗？

Answer 6

未找到提供程序。
所谓“提供程序”就是 Provider，即 microsoft.jet.oledb.4.0 没有安装，上网下一个。

Answer 7

工程-引用:
Microsoft ActiveX Data Object 2.1(或更高版本) libary      
或定位：……msado15.dll

Answer 8

谢谢Tiger_Zhao高手指点，问题可能在microsoft.jet.oledb.4.0 没有安装，我的XP比较老，我在网上找到有同样问题的，更换成XP-SP2就行了。我试一下，但在此先谢谢了
同时也谢谢guoshaoming，谢谢你的热心帮助

Answer 9

谢谢AB_dumped，Microsoft ActiveX Data Object 各版本都引用过了，
但不知  定位：……msado15.dll  如何操作