acces VBA "运行时错误‘13’：类型不匹配

Question

光标停留在 “Set RecSet = Dbs.OpenRecordset(SqlStr)”具体语句如下：
SqlStr = "select distinct inst_no from 表1"
Set RecSet = Dbs.OpenRecordset(SqlStr)类型定义如下：
Dim Dbs As Database
Dim RecSet As Recordset请问这是怎么原因啊？ 

Answer 1

有没有打开数据库呀.Set Dbs= OpenDatabase("f:\abc.mdb")

Answer 2

我怎么没有在 Access里的VBA 里 找到 Database 类型呀？？是这个有错误吧我只找到了  Connection 你最好还是使用“连接”对象吧

Answer 3

要想在Access 的模块里使用 Database 类型，就必须引用Microsoft DAO 3.6 Object Library 对象类库

Answer 4

解决了，因为引用里除了“Microsoft DAO 3.6 Object Library ”还多选了一个类似的对象类库，可能是冲突的原因吧。 把多余的那个去掉就好了