主题：强制关闭前执行

 在某些时候 项目未能安全退出 (调用任务管理器强制关闭)

在哪加入下面的代码:

Dim dr As DataRow
    Dim hyzh As String =e.Form.Controls("姓名").Text
    hyzh = hyzh.Trim(" ", "登","录","账","号",":","[","]")
    dr = DataTables("账户管理").Find("[用户账号] = '" & hyzh & "' ")
    dr("用户状态") = False
 以免重新登录时 显示账号已登录 不能重复登录

我在BeforeCloseProject 加入

Dim dr As DataRow
    Dim hyzh As String =Forms("主界面").Controls("姓名").Text
    hyzh = hyzh.Trim(" ", "登","录","账","号",":","[","]")
    dr = DataTables("账户管理").Find("[用户账号] = '" & hyzh & "' ")
    dr("用户状态") = False
也没用 要怎样改