请帮我诊断一下错误在哪里,为什么总是添加不进记录呢!

With AdoRS              '将用户的登录信息保存到操作日志
                                            If .State = 1 Then
                                                   .Close
                                               End If
                                                .CacheSize = 50
                                               .CursorLocation = adUseClient
                                               .LockType = adLockBatchOptimistic
                                               .CursorType = adOpenStatic
                                               .Source = "select * from tbl_log"
                                               .ActiveConnection = AdoCNN
                                               .Open
                                        End With
                                        AdoRS.AddNew
                                        AdoRS.Fields("date") = Date
                                        AdoRS.Fields("time") = CStr(Time)
                                        AdoRS.Fields("username") = USERS
                                        AdoRS.Fields("cz_type") = "登录系统"
                                        AdoRS.Fields("bz") = ""
                                        AdoRS.Update
                                        AdoRS.Close