很简单的问题，vb连接access，出错？？

[fangshengwen]

Dim db As Database
Dim rs As Recordset
MdbPath = App.Path & "\data.mdb"
Set db = OpenDatabase(MdbPath)
Set rs = db.OpenRecordset("select * from images")


弹出错误 类型不符合 （最后一句是错误句子）
什么原因呢？

[游子]

dim db as new adodb.connection
dim rs as new adodb.recordset

[daisy8675]

引用DAO3.6
Option Explicit
Private daoDB36 As Database
Private rs As DAO.Recordset
Dim sPath As String

Private Sub Form_Load()
　　sPath = "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
　　Set daoDB36 = DBEngine(0).OpenDatabase(sPath)
　　Set rs = daoDB36.OpenRecordset("Customers")
　　Set Data1.Recordset = rs
End Sub

[zhangzhi0806]

option explicit
dim db as new adodb.connection
dim rs as new adodb.recordset
dim conn as string
Dim strconn As String
strconn = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\数据库名;persist security info=false;Jet OLEDB:database password=123456" '这个是带密码访问数据库
conn.CursorLocation = adUseClient
conn.Open strconn

[zhangzhi0806]

利用ADODB需在VB工程 引用 里边的
microsoft activex data objects 2.7 library
就可以了

[zdqsm]

对啊
要引用ADODB到工程里面来
写的语法上面已经有了
可以参考一下