请教登录时间记录计入

请教各位老师：我按书上的例子，逐步操作，但不能正常运行，不知原因何在？我想在现有登录窗体程序中增加一个“用户登录记录”功能，现将代码附上：

           
'将登录时间计入数据库

           
rs.Close

           
rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic

           
rs.AddNew

           
rs!用户名 = username

           
rs!登录时间 = Now()

           
rs!退出时间 = CDate(0)

           
rs.Update

           
rs.Close

           
DoCmd.Close

           
DoCmd.OpenForm "窗体1"

主窗体：退出按键：

Private Sub cmd_退出系统_Click()

   
Dim answer As Integer

   
answer = MsgBox("您确定要退出系统吗?", vbOKCancel + vbQuestion, "退出系统")

   
If answer = vbOK Then

       
Dim conn As ADODB.Connection

       
Dim rs As ADODB.Recordset

       
Set conn = CurrentProject.Connection

       
Set rs = New ADODB.Recordset

       
rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic

       
rs.MoveLast

       
rs!退出时间 = Now()

       
rs.Update

       
rs.Close

       
DoCmd.Quit acQuitSaveAll

   
End If

End Sub