求助一个问题,关于Vb 的？？？

大家请帮忙，一个VB报错 源代码一部分是这样得：

Function verify(userid As String, txtpwd As String) As Boolean

Dim idinfo As Recordset
Dim sqlstr As String
sqlstr = "select UserId,Password from Tbpwd where UserId='" & userid & "'"
Set idinfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)'''''''''''''''''''''''''''''错误出现在这里，（错误的提示是这样的，实时错误 91，对象变量或with块变量未设置！）
'到数据库中提取用户名密码和记录
If (idinfo.RecordCount = 0) Then
MsgBox "无此用户!"
verify = False
Else
If (idinfo.Fields("密码").Value = txtpwd) Then
verify = True
Else
MsgBox "无效得密码！"
verify = False
End If
End If
idinfo.Close

End Function

请问是什么原因呢？

求助关于VB的一个小问题 求助关于VB的问题 求助VB的一个问题 VB的一个问题,求助!!!!!!!!!! 关于vb的一个很简单的问题！求助！ VB 求助高手关于COM的一个问题 关于VB的一个问题 关于vb的一个问题 一个关于VB的问题 关于一个VB的问题