我也碰到过类似的情况,解决方法是在项目的AfterOpenProject事件中,在代码Forms("用户登录").Open()的下面加上:
If _username = "" Then ReturnEnd If
看看是否可行。