我用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 语句吧？

---

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

---

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

---

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

---

我试了一下