致：走过路过的坛内网友

本菜
前不久下载了一个VB6来学习

在学习过程中
建立了：一个工程（工程1）

在：工程1 中
包含：一个窗体(Form3)--------------用户登录窗体  
包含：一个MDI窗体(MDIForm1)--------菜单栏MDI专用窗体（非专业表达）

在数据库ACCESS中-------（ACCESS数据库名称：数据库）
用了一张表单（ACCESS--表名称：记录用户登录退出时间）
来记录
用户登录和退出时间
(备注：登录时间，本菜已经做好）
就差-------退出时间不知道该如何做

在：菜单栏MDI专用窗体(MDIForm1)中
建了了一个：退出菜单，代码如下
Private Sub C1_Click()
 End
End Sub

现在
本菜的求助结果是：
1、点击菜单：退出   时
   并将
   Windows 系统当前时间
   写入到ACCESS表单中

2、点击关闭窗口（也就是：红色的X）
   也能
   将
   Windows 系统当前时间
   写入到ACCESS表单中

为减轻热心网友的工作量
附上
将时间数据写入表单的部份代码
以便
热心网友
在此基础上修改
敬请各位网友指点一二
谢谢！！！

Sub BBB()
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Sq As String

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
             "\数据库.mdb;Jet OLEDB:Database Password=" & 123

Sq = "SELECT * FROM 记录用户登录退出时间 "
Rst.Open Sq, Cnn, adOpenKeyset, adLockPessimistic
With Rst
.AddNew
.Fields("进入系统时间") = Now()
.Fields("退出系统时间") = Now()
.Fields("用户姓名") = Combo1.Text
.Update
End With

Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
End Sub

在这个响应过程中写 退出 时间.
另外,如果你系统提供 用户重登陆,或退出 功能的话,也需要在相应的地方写 记录退出时间.

Private Sub MDIForm_Unload(Cancel As Integer)
'当 程序退出,并且没其它任何窗口阻止时,本响应过程是最后一个响应过程了.


End Sub

-------------------------
另外还有一个 响应过程
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
这个响应过程是当程序退出,第一个响应过程.

多谢指教！！！