实时错误424 要求对象 这是什么错误啊？！

[jerry7981]

我照书上写了一段登陆某系统的窗口
其中有一个函数
function verify(userid as string, txtpwd as string) as boolean
dim idinfo as recordset
dim sqlstr as string
sqlstr="select worknumber,password from worker where worknumber='" & worknumber & "'"
set idinfo=coursedb.openrecordset(sqlstr,dbopensnapshot,dbreadonly) ----->这一行出错
if (idinfo.recordcount=0) then
msgbox "无此工号！",,"登陆"
verify=false
else
if (idinfo.fields("password").value=txtpwd) then
verify=true
else
msgbox "密码错！",,"登陆"
verify=false
end if
end if
idinfo.close
end function



vb提示说 实时错误424 要求对象

这是怎么回事啊？
我哪里错了？我是完全按照书上写的啊

[jerry7981]

调试的时候 我看到
set idinfo=coursedb.openrecordset(sqlstr,dbopensnapshot,dbreadonly)
中的
idinfo=nothing
dbopensnapshot=空值
dbreadonly=空值

[行云边]

先定义coursedb
dim coursedb as new recordset

[ryuginka]

dim idinfo as recordset ,要引用ADO或者放个控件

[recollectpainer]

对于对象操作前需先将其实例化，既 new

[jerry7981]

我定义了coursedb之后就出现错误：未识别的方法或函数

有没有其他的语句可以用啊？
我要的功能只是用户登陆时 检查用户的用户名和密码就好了
应该怎么写啊？

[yjb136]

你少加了哪个控件吧,

[xiaoyuanzhi]

http://community.csdn.net/Expert/topic/3431/3431300.xml?temp=.7188684