Private Sub Command2_Click()Dim conn As New adodb.ConnectionDim rs As New adodb.Recordsetconn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "d:/ b"conn.Openrs.Open "jiben", connrs.AddNewrs("name") = "離"rs.UpdateEnd Sub提示錯誤信息:實型錯誤"3251"原帖來自于網易社區:

熱心網友

rs.Open "jiben", conn,adOpenStatic, adLockOptimistic沒有指定鎖定類型，默認是AdLockReadOnly，只讀，所以不能修改數據了。