关于数据库联结问题

liushu-p

在VBA中用下列语句连结数据库

      Set conn = New ADODB.Connection
      conn.CursorLocation = adUseClient
      conn.Provider = "Microsoft.Jet.OLEDB.4.0;"
      connstr = "Data Surce=d:\制图\数据库\塔巴庙探井.mdb;"
      conn.Open connstr

但运行时出现错误如下：

     Compile error:

     Can't find project or library

我引用的是Microsoft ActiveX Data Objects 2.5  library

请问如何解决？非常感谢！

persist

菜单 工具 -〉引用-〉Micorsoft Access 11.0 Objects  library 试试

Set Public conn As New ADODB.Connection   '定义新连接
Public cmd As New ADODB.Command     '定义指令
Public rs As New ADODB.Recordset  '定义两个记录集

set conn = New Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\制图\数据库\塔巴庙探井.mdb"
Set cmd.ActiveConnection = conn
cmd.CommandText = "select * from 表名"

rs.CursorLocation = adUseClient

rs.Open cmd, , adOpenStatic, adLockBatchOptimistic