Recordset.AddNew出错：Current Recordset does not support updating！？

Question

我的数据库是用access建立的。
     Set cnn = New ADODB.Connection
     cnn.CursorLocation = adUseClient
     cnn.Mode = adModeReadWrite
     cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lab.mdb; Persist Security Info=False"
     cnn.Open
     Set rc = New ADODB.Recordset
     rc.Source = "Select * from StorePlaces"
     Set rc.ActiveConnection = cnn
     rc.CursorType = adOpenDynamic
     rc.Open
     rc.AddNew "StorePlaceID", "abc"
     rc.AddNew "Description", "bbb"
不知道是什么问题？

Answer 1

晕哦，要设置rc.LockType = adLockOptimistic
对不起了，菜鸟灌白开水

Answer 2

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Combo1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
        Label1.Caption = rs!ID
        Label2.Caption = rs!Memo
    End If
End SubPrivate Sub Form_Load()
    cn.ConnectionString = ""
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End Sub