代码无法执行，为什么？

bjtaobing

dim db as database
dim rs as recordset
set db=currentdb
set rs=db.openrecordset ("select * from  kc")
.......

在xp下执行打开记录集出错，为什么?
我觉得代码没有错误啊
调用的是DAO3。5