vb中3265的错误

Question

Private Sub cmdOK_Click()
  Dim myday As Long, myminute As Long       '定义长整型变量，分别存储天数和分钟
  If blnAddGCQJ = True Then         '如果标记为True（添加数据）
    With main_kqgl_gcqj
      rs.Open "select * from 员工外出请假记录表", cnn, adOpenKeyset, adLockOptimistic  '连接公出请假记录表
      For i = 0 To .lstEmployee.ListCount - 1         '遍历员工列表
        If .lstEmployee.Selected(i) = True Then         '如果列表项被选定
          rs.AddNew               '添加新记录
          '为表中各字段赋值
          rs.Fields("员工编号") = Left(.lstEmployee.List(i), 5)
          rs.Fields("员工姓名") = Mid(.lstEmployee.List(i), 6, Len(.lstEmployee.List(i)))
          rs.Fields("假别") = cboStyle.Text
          rs.Fields("开始时间") = DTPStartDate.Value & " " & MaskEdBoxTime1.Text
          rs.Fields("结束时间") = DTPEndDate.Value & " " & MaskEdBoxTime2.Text
          rs.Fields("原因") = txtCause
？？？？？？rs.Fields("录入日期") = Now           '录入日期为系统日期         
           myday = DateDiff("d", DTPStartDate.Value, DTPEndDate.Value)    '计算天数
          myminute = DateDiff("n", MaskEdBoxTime1.Text, MaskEdBoxTime2.Text)  '计算分钟
          If myday <> 0 Then             '如果天数不等于零
            rs.Fields("请假时间") = myday & "天" & Round(myminute / 60, 1) & "小时" '请假时间为天和小时
          Else                '否则
            rs.Fields("请假时间") = Round(myminute / 60, 1) & "小时"     '请假时间按小时计算
          End If
          rs.Update               '更新数据表
        End If
      Next i
      rs.Close                '半闭数据集对象
      .Adodc1.Refresh               '刷新数据表
    End With
  Else
问号地方总提示“3265”的错误！帮忙

Answer 1

可能出现的情况有二：
1、你数据表中没有录入日期这个字段或是你写错了；
2、字段中录入日期的数据类型不对，请检查一下数据类型，
并将rs.Fields("录入日期") = Now改成
 rs.Fields("录入日期").value = Format(Now,"YYYY-MM-DD HH:MM:SS") & ""

Answer 2

谢谢啊！我太粗心........
有问题互相帮助啊！QQ：84404276（注明是csdn友即可）