主题：[求助]为什么会有这种提示?

此主题相关图片如下：错误提示.bmp

这是什么原因造成的?求解释

AfterOpenProject事件

If _UserName <> "admin" Then
        TableCaptionVisible = False
    Dim xtcd As RibbonMenu.Button = RibbonTabs("功能区1").Groups("9").Items("使用帮助").Items("进入系统菜单")
    xtcd.Visible=False
End If
报错继续后还提示不能找到"功能区1"

此主题相关图片如下：错误提示1.bmp

编写代码后关闭窗口保存后进入用户登录窗口选择用户确定后出现的错误提示

登录窗口确定按钮的代码:

Dim UserName As String = e.Form.Controls("UserName").Value
Dim dr As DataRow
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.SQLFind("[用户名] = '" & UserName & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("PassWord").Value = dr("密码") Then
    _UserName = UserName
    _UserGroup = dr("用户分组")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

关闭重新进入后没报错了.也不知道是什么原因在编写项目事件AfterOpenProject代码时会报错,又重编写了一下还是出现报错,但关闭重新进入又没报错了.