Syscmd.Project.Open(ProjectFile)项目陷入无限重复打开的局面

想实现项目启动完成后，先判断是否需要升级，如果需要升级，升级完成后，自动重启项目

当前代码如下：运行后项目陷入无限重复打开的局面  有没有办法修正呢？

Dim ipFile As String = ProjectPath & "\\Attachments\\ip.txt"
Dim up As Boolean
If Filesys.FileExists(ipFile) Then
    Dim ip As String = FileSys.ReadAllText(ipFile)
    If TryConnectHost(ip) = True Then
        Dim hc As New HttpClient("升级地址/update.txt")
        hc.SkipError = True
        If hc.GetFile(ProjectPath &"update.txt") Then
            up = Syscmd.Project.Update(False,False)
            \'升级完成后 项目重启
            Syscmd.Project.Open(ProjectFile)
        End If
    End If
End If
If up = False Then \'如果没有升级
    MainTable=Tables("表a")
    TableCaptionVisible = False
    Forms("会议系统").open
End If