ACCESS中如何在退出前更新当前用户的状态

定义了一个全局变量User,原本想在主窗体的Close事件中用如下代码来使登录状态变成False

    Dim strSQL As String
    strSQL = "update tbluser set 登录状态 = False where [姓名] = '" & User & "'"
    DoCmd.RunSQL strSQL

实际发现在窗体关闭时User变量已经变成NULL值，最后使用窗体的Tag属性保存了当前用户名称才解决了问题。