源代码：
Private Function checkid(userid As Integer) As Integer
Dim str As String
Dim rs1 As New ADODB.Recordset
str = "select id from 员工信息 where id=userid"
rs1.Open str, conn, adOpenKeyset, adLockOptimistic
If rs1("id") <> 0 Then
checkid = 1
Else
checkid = 0
End If
Set rs1 = Nothing
End Function
错误提示：至少一个参数没有被指定值 光标停留在rs1.Open str, conn, adOpenKeyset, adLockOptimistic 语句。
到底是怎么回事呢？

非常感谢， 我试试.

非常感谢您的指点， 我的问题解决了.