主题：我按照用户手册的“自定义用户与权限管理”这一章节，做了一个自定义的登陆，可是点击登陆界面的“取消”按钮，确出现一系列的错误

我按照用户手册的“自定义用户与权限管理”这一章节，做了一个自定义的登陆，可是点击登陆界面的“取消”按钮，确出现一系列的错误。

“取消”按钮的代码如下： 

e.Form.Close()
Syscmd.Project.Exit()

点击登陆界面的“取消”按钮，出现一系列的如下图所示的错误：

AfterOpenProject事件代码如下：

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
End If

With DataTables("物料类别")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("物料管理")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("仓库管理")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("入库单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("材料出库单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("领料单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("销售出库单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("委外加工单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("退货单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("移库单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With