主题：关闭除共有窗口所有窗体

请老师指点代码错在哪？谢谢！

If LastInputTickCount > 30000 Then
    Forms("用户登录").Open()
    If Forms("用户登录").Opened Then
        Forms("用户登录").Controls("用户名").Text = _UserName
        Forms("用户登录").Controls("用户名").Enabled = False
        Forms("用户登录").Controls("密码").Select
        For Each frm As WinForm.Form In forms
            If frm.Name <> "共有窗口" OrElse frm.Name <> "用户登录" Then
                frm.Close
            End If
        Next
        MainTable = Tables("首页")
        Forms("主窗体").Open()
    End If
End If