VB6登录日志窗体求助
致：走过路过的坛内网友本菜
前不久下载了一个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
