你好，我用这个语句设权限，

Dim rs_login As New ADODB.Recordset
Select Case rs_login("userpurview")
Case "public":
MenuEmployee.Enabled = False
Case "system":
End Select
可是总抱错，提示信息是“在对应所需名称或序数的集合中，未找到项目”，这是什么原因啊？

[此贴子已经被作者于2006-8-7 13:30:20编辑过]

晕死..你还没有给定数据源....

新手吗……

Dim conn As New ADODB.Connection

conn.Open "Provider={Microsoft Access Driver(*.mdb)}; Data Source=数据库文件位置"
rs_login = conn.Execute "Select * FROM 权限表的名"

最好先去看看 ADO 数据库方面的书。