我用Excel VBA 怎么无法连上Access数据库？请高手指教
我的程序如下：
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”，
是不是还要加选别的引用？
请高手给予指教，本人不胜感激！
[解决办法]
myTable 应该是一个SQl 语句吧？
[解决办法]
那估计你的这个
ThisWorkbook.Path & "\接点库.mdb" '指定数据库
得到的数据库全路径有问题，debug一下看看是不是你想要的数据库。
[解决办法]
我试了一下，不会出错呀！
你引用的是 microsoft activeX Data Objects 2.8 library 吗？
[解决办法]
未找到提供程序。
所谓“提供程序”就是 Provider，即 microsoft.jet.oledb.4.0 没有安装，上网下一个。
[解决办法]
工程-引用:
Microsoft ActiveX Data Object 2.1(或更高版本) libary
或定位：……msado15.dll
