请问如何从数据库中得到一个不明确列名的返回值?

Question

我现在在做权限设置的模块
数据库中有一张表存有员工编号,权限名称
我在类模块中写了一个函数,参数是权限名称,数据类型为Bit
我在用户单击菜单时将权限名称传递给函数,想通过返回值来验证权限
函数如下
Public Function Droit(DroitName As String) As Boolean
    Set rs = New Recordset
    rs.CursorLocation = adUseClient
    If rs.State = 1 Then
        rs.Close
    End If
    Dim str As String
    str = "Exec PROC_Droit '" & LoginName & "', '" & DroitName & "'"
    rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdText
    Dim BB As Boolean    BB=rs!DroitName/////此处报错找不到列名
    If BB = 1 Then
        Droit = True
    Else
        Droit = False
    End If
End Function
数据库中确实没有DroitName这个列名,这个只是存储过程的一个参数
我已经验证到数据库中有记录返回,但不知道如何将记录集中的数据赋给BB

Answer 1

DroitName参数应该是数据表中的一个字段，要不然会报错。

Answer 2

bb=rs.feilds(0).value 这样不可以吗??

Answer 3

这样：
 BB=rs（DroitName）