实时错误 '-2147217887 (80040e21)':多步操作产生错误。请检查每一步的状态值。

Question

本人使用的数据库：ORACLE9i
功能：点击新增按钮，进入添加状态，填好信息后，再点击保存按钮。
错误：点击保存后，出现：实时错误 '-2147217887 (80040e21)':多步操作产生错误。请检查每一步的状态值。
代码：Dim Conn As New ADODB.Connection '连接变量
Dim Connstring As String '连接字符串
Dim RS1 As New ADODB.Recordset '记录集变量
Dim bm '定义一个变量用来存放添加记录时原来记录的位置
Dim tj As Boolean
Private Sub Form_Load()
Connstring = "DSN=考勤管理信息系统;uid=scott;pwd=tiger"
With Conn
.ConnectionString = Connstring
.ConnectionTimeout = 10
.Open
End With
RS1.CursorType = adOpenDynamic
RS1.CursorLocation = adUseClient
RS1.LockType = adLockOptimistic
RS1.Open "加班记录表", Conn, adOpenForwardOnly, , adCmdTable
Adodc1.Visible = False
End Sub
Private Sub Command1_Click() '新增加班
bm = Adodc1.Recordset.Bookmark '用书签记下当前记录位置
Adodc1.Recordset.AddNew '调用AddNew方法增加新记录
tj = True '是添加新记录
Command1.Enabled = True
Command2.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
End Sub
Private Sub Command7_Click() '保存
Adodc1.Recordset.Update '调用Update方法保存
Adodc1.Refresh
MsgBox ("保存成功") '给出保存成功提示
End Sub
出错语句：Adodc1.Recordset.Update '调用Update方法保存

另外表格字段设置：
create table 加班记录表
(员工编号 varchar2(20) not null primary key,
姓名 varchar2(20),
部门名称 varchar2(40),
加班日期 date,
加班时数 number(20)
);

请各位高手帮帮忙啊！！！

Answer 1

填的数据 不符合或者没有转换 成 数据库相应字段的数据类型 或 约束

Answer 2

日期格式有问题 修改一下就可以了

Answer 3

请问怎么解决的啊，可以简单说下吗？谢谢了