源代码：
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 语句。
到底是怎么回事呢？

str = "select id from 员工信息 where id=userid"
这个userid是什么东东，这样写我想会有问题的噢
一般这是个变量（从你的程序中看出来）
但变量不能这样用，除非它是个表中的字段名
str = "select id from 员工信息 where id="&userid
改成这样试试
要不信的话建议你加这一句看看是个什么东东
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"
MsgBox "str=" & str
rs1.Open str, conn, adOpenKeyset, adLockOptimistic
If rs1("id") <> 0 Then
checkid = 1
Else
checkid = 0
End If
Set rs1 = Nothing
End Function

[此贴子已经被作者于2006-6-7 20:53:38编辑过]

非常感谢， 我试试.

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