Dim rec As ADODB.Recordset

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0
      rec.AddNew
      Command1(1).Enabled = True
    Case 1
      On Error GoTo err1
      rec.UpdateBatch adAffectAllChapters
      Command1(1).Enabled = False
    Case 2
      On Error GoTo err1
      rec.CancelUpdate
    End Select
    Exit Sub
err1:
    MsgBox Err.Description
End Sub

Private Sub Form_Load()
    Left = 0
    Top = 0
    Me.Height = main.ScaleHeight
    Me.Width = main.ScaleWidth
    Set rec = DataEnvironment1.Recordsets(1)
    rec.AddNew   （错误在这儿,实时错误 “3251”当前记录集不支持更新，这可能是提供程序的限制，也可能是选定锁定类型的限制！）
End Sub
我是按照这个实例做的，错误在“增加”子窗体里面，请高手帮帮忙

[ 本帖最后由 rensanyuan 于 2012-11-29 00:18 编辑 ]

记录集打开方式错误

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

recordset.Open "select * from table", conn, 1,1 即可

打开方式：
常量 说明
adOpenForwardOnly （默认值）打开仅向前类型游标。
adOpenKeyset 打开键集类型游标。
adOpenDynamic 打开动态类型游标。
adOpenStatic 打开静态类型游标。

锁定方式：
常量 说明
adLockReadOnly （默认值）只读 — 不能改变数据。
adLockPessimistic 保守式锁定（逐个） — 提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录来完成。
adLockOptimistic 开放式锁定（逐个） — 提供者使用开放式锁定，只在调用 Update 方法时才锁定记录。
adLockBatchOptimistic 开放式批更新 — 用于批更新模式（与立即更新模式相对）。

谢谢您的答案，请您再帮我看看下面一段代码：
              source0 = DataEnvironment1.Recordsets(1).Source
    activeconnection0 = DataEnvironment1.Recordsets(1).ActiveConnection
                        DataEnvironment1.Recordsets(1).Close
                        DataEnvironment1.Recordsets(1).Open source0, activeconnection0, 3, 3（提示在这一行）
错误提示：多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
谢谢！！！

[ 本帖最后由 rensanyuan 于 2012-12-6 00:42 编辑 ]