为什么会这样？

Question

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
 cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security     Info=False;Data Source=" + App.Path + "\db2.mdb"
 rs.Open "ren", cn
 rs.AddNew
 rs("Name") = "jaksd"
 rs("age") = 20
 rs("sex") = "男"
 rs.Update
End Sub为什么执行的结果报错是：对象或提供者不能执行所需操作

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
 cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security     Info=False;Data Source=" + App.Path + "\db2.mdb"'----err here.记录集默认的打开方式是只读型的，不允许进行增加和更新操作，必须指定为开放式
 rs.Open "ren", cn,adOpenDynamic,adLockOptimistic rs.AddNew
 rs("Name") = "jaksd"
 rs("age") = 20
 rs("sex") = "男"
 rs.Update
End Sub