If Syscmd.Project.Update(False,False) = False Then '如果没有升级
改成
If Syscmd.Project.Update(False,True) = False Then '如果没有升级