主题：求助关于远程升级成功出现的错误

我在发布了新版本后 其他的电脑打开后就自动远程升级 并从远程下载压缩包 最后提示升级成功，请重新启动 点击确定后就出现了
此主题相关图片如下：qq图片20140409105005.jpg

只要关闭了这个页面重新打开系统还是老问题 但不关这个页面 呵呵 就能成功升级 真不知道问题出在哪里

现将AfterOpenProject代码贴出 请各位大侠帮俺想想办法是怎么个问题 该如何解决 谢谢

'自定义系统名称

Applicaticati
'注册码
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"*****","*********") = ComputerId Then '如果注册码正确
    OK = True
    Forms("导航").Open() '打开导航窗口
    Forms("背景窗口").Open() '打开背景窗口
Else
    Ok = False
    Messagebox.Show("该系统未审核请联系管理员审核!")
    Syscmd.Project.Exit()
End If
'自动升级
'Syscmd.Project.Update(False,False)
'在线升级
If Syscmd.Project.Update(False,False) = True Then '如果有升级则打开升级窗口
     Forms("升级").open()
End If

'设置背景颜色
DataTables("成交录入").SysStyles("EmptyArea").BackColor = Color.LightBlue
DataTables("佣金明细").SysStyles("EmptyArea").BackColor = Color.LightBlue
'解锁非正常退出时被锁定的记录
DataTables("成交录入").ReplaceFor("编辑者",Nothing,"编辑者 = '" & User.Name & "'")
DataTables("成交录入").Save()
Tables("成交录入").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列
'佣金明细表分页加载数据
'With DataTables("佣金明细")
'    .LoadFilter = "" '一定要清除加载条件
'    .LoadTop = 30
'    .LoadPage = 0
'    .Load()
'End With

升级窗口的远程升级控件代码为

Dim Chart As WinForm.Chart
Chart= Forms("升级").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM" '设置Y轴的标示格式
Chart.AxisY.MinDate = #03/01/2014# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #12/31/2014# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With Chart.SeriesList
    .AddGanttSeries("任务一", #3/5/2014#, #3/28/2014#)
    .AddGanttSeries("任务二", New DateTime() {#3/19/2014#, #3/31/2014#}, New DateTime() {#4/1/2014#, #4/30/2014#})
    .AddGanttLabels("M月d日")
End With

这次升级包的日期为2014/4/9