急！关于addnew的问题

Question

Option Explicit
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.RecordsetPrivate Sub Command1_Click()
    rst.MoveNext
    Text1.Text = rst.Fields("a")
End SubPrivate Sub Form_Load()
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=d:\vb\db1.mdb"
    Set cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdText
    cmd.CommandText = "select * from ris"
    rst.Open cmd, , adOpenDynamic
    rst.MoveFirst
    Text1.Text = rst.Fields("a")
End SubPrivate Sub Option1_Click()
    If Option1.Value = True Then
        rst.AddNew
        rst.Fields("d").Value = 1
        rst.Update
    End If
End Sub运行时在 rst.addnew 行提示实时错误3251 不知如何修改 已查阅大量资料依然一头雾水 请高人明示 谢过了

Answer 1

不要用addnew方法，有很多问题

Answer 2

试一下将rst.Open语句改为以下形式：rst.Open cmd, , adOpenDynamic, adLockOptimistic
因为如果不指定adLockOptimistic参数，该Recordset会缺省以只读方式打开