你能帮助一只迷惑的猪吗？？？

[pighead]

Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset

Dim strDBName As String
Dim strRSName As String

strDBName = App.Path & "\data\entry.mdb"
strRSName = "userpopedom"

MsgBox strDBName, vbOKOnly, "database path"
MsgBox strRSName, vbOKOnly, "table name"

Set db = DBEngine.OpenDatabase(strDBName)
Set rs = db.OpenRecordset(strRSName, dbOpenDynaset)

End Sub
小弟我在一个新的表单中加入上面的代码，表单上没有任何东西了，里面也没有任何代码。
在工程中也加入了对 DAO 3.51 的引用，可是不知道为什么在执行中会提示错误。
即最后一句出现错误。（类型不匹配）。

[pighead]

肯请大家帮忙

[public]

Dim db As new Database
Dim rs As new Recordset

[lishush]

Set db = OpenDatabase(strDBName)
Set rs = db.OpenRecordset(strRSName, dbOpenDynaset)

[public]

to 　pighead(小猪)
对不起，看错问题了，也答错了！！
see u later

[junglerover]

可能是
Dim rs As Recordset
的问题。应当显式地指定对象类型，因为ADO也有RECORDSET。
改为
Dim rs as DAO.Recordset
试试？

[lzj_freedom]

我试了一下,没有问题
我用dao3.6,access2000数据库
关于最后一句出现错误,是否是表名写错?

[watt]

Please use DAO 3.6 or high version, because the DAO 3.51 cannot open the database of access2000. it's only open access97, do you know?

[junglerover]

我还是认为是你的rs类型不对，否则不会报
“类型不匹配”的错误。你
Dim rs As Object
试试？