请VB高手看看这一断 它提示是未找到方法或数据成员

Private Sub form_load()
Dim rst As ADODB.Recordset
Dim rights As String
Dim stokens() As String
Dim msg As String
sql = "select 权限 from 用户信息表 where 用户ID='" & userID & "'"
Set rst = selectsql(sql, msg)
If rst.RecordCount > 0 Then
rights = Trim(rst.Fields(0))
rst.Close
Else
MsgBox ("没有用户信息！")
Exit Sub
机构设置.Enabled = InStr(rights, "机构设置")
学籍管理.Enabled = InStr(rights, "学籍管理")
课程管理.Enabled = InStr(rights, "课程管理")
成绩管理.Enabled = InStr(rights, "成绩管理")
奖惩管理.Enabled = InStr(rights, "奖惩管理")
系统管理.Enabled = InStr(rights, "系统管理")
End If
End Sub

其中这一段
机构设置.Enabled = InStr(rights, "机构设置")
学籍管理.Enabled = InStr(rights, "学籍管理")
课程管理.Enabled = InStr(rights, "课程管理")
成绩管理.Enabled = InStr(rights, "成绩管理")
奖惩管理.Enabled = InS

请VB高手看看这一断 它提示是未找到方法或数据成员 VB 急急急急~！！ 请高手过来看看 VB简单题目，请高手看看，小弟文科生实在是…… VB 高手看看 VB 高手进来看看！ VB高手帮忙看看 VB 高手过来看看 请VB高手给看看这段代码! 请VB高手帮我看看这段代码 请VB高手看看这段代码 很短的..