tb.AddNew执行时为何提示“对象或者提供者不能执行所需的操作”？？(代码在里面)

Question

Option Explicit
    Dim tbs As ADODB.Connection
    Dim tb As ADODB.RecordsetPrivate Sub Command1_Click()
    tb.AddNew
End SubPrivate Sub Form_Load()
    Set tbs = New ADODB.Connection
    tbs.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\temp\per\sys.mdb;Persist Security Info=False"
    Set tb = New ADODB.Recordset
    tb.Open "conrec", tbs
    Set MSHFlexGrid1.DataSource = tb
    
End Sub

Answer 1

不是啊，我用adodc控件的时候都可以用adodc.recordset.add添加。

Answer 2

修改如下：
Option Explicit
    Dim tbs As ADODB.Connection
    Dim tb As ADODB.RecordsetPrivate Sub Command1_Click()
    set tb=new adodb.recordset
    with tb
         .CursorLocation=adUseclient
         .CursorType=AdOpenDynamic
         .LockType=adLockOptimistic
    end with
    tb.AddNew
    ...............
End SubPrivate Sub Form_Load()
    Set tbs = New ADODB.Connection
    tbs.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\temp\per\sys.mdb;Persist Security Info=False"
    Set tb = New ADODB.Recordset
    tb.Open "conrec", tbs
    Set MSHFlexGrid1.DataSource = tb
    
End Sub

Answer 3

原来又是没设置好ado对象的属性!!
：(