主题：请高人解读一下这个错误提示

以下是按钮的代码：

Select Case e.link.name
        Case "任务1"
            If _qjlc = True Then
                DataTables("订单").LoadFilter = "[待清洁] = 1" &bra
                DataTables("订单").Load
                Forms("清洁线").open
                MainTable = Tables("子订单")
            Else
                MessageBox.show("没有授权!","警告")
            End If
end select

图片是点击后的错误提示~

此主题相关图片如下：qq截图20131107130746.png

之前一直是正常的，但是昨天突然就弹这个提示，而且是在我没做任何改动的前提下