vba access问题

[KingMarine]

一个按钮的对应的代码如下：
dim db as Database
dim rs as Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("tb1") 'tb1 是当前数据库中的一个表

执行到这的时候，检查err.Description得值，是类型不一致，在CurrentDb执行完毕的时候，是没有错误的，请问为什么？

[shellcq]

我认为应该这样写
strSQL=".....SQL的内容...."
set rs=db.openrecordset(strSQL)

[CATTJIU]

dim db as Database
dim rs as Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("tb1") 'tb1 是当前数据库中的一个表
========================

Set db = CurrentDb()的()多余的,需要删除.

[ggto]

set db=new database
set rs=new recordset
在内存中申请地址空间