liangjunshr

本人所用数据库：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()
C
    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

出现错误代码是红色部分！