菜鸟求助！

Question

想把text中的数值保存在数据库chengji.mdb的表“语文”中的第2个字段中
Private Sub cmd_save_Click()
If Combo2.Text = "语文" Then
   Set db = Workspaces(0).OpenDatabase(App.Path & "\chengji.mdb")
   Set Data1.Recordset = db.OpenRecordset("语文")
   Set rs = Data1.Recordset
End If
rs.MoveFirst
For i = 0 To j
    rs.Fields(2).Value = Val(Text1(i).Text)
    rs.MoveNext
Next i
End Sub
总是提示“在不使用“addnew”或“edit”的情况下更新或取消更新”
我尝试过用rs.updata和rs.refresh可是不知道加在什么地方，或者有什么其他的方法。请赐教，谢谢！

Answer 1

OpenRecordset 要选择允许改写的参数

Answer 2

開啟 Table 編輯修改
Set Rs = DB.OpenRecordset("DataEdit", dbOpenDynaset) 

Answer 3

dim myrs As Recordset
dim strSQL as string

    '* 要打开的表名，也可以是一个SQL查询语句（呵呵，又可以用SQL）.
    strSQL = "Student" 
    
    '* 创建Dynaset型的Recordset，使它包含的是表Student的内容. 
    Set myrs = dbDatabase.OpenRecordset(strSQL, dbOpenDynaset)

    myrs.AddNew '* 添加一条记录.
    myrs.Fields("Name") = strName
    myrs.Update '* 把更改写入数据库中.
    
    '* 删除一条记录，注意，在执行之前，当前记录不能为空.
    myrs.Delete    

Answer 4

Set Data1.Recordset = db.OpenRecordset("语文")
改成Set Data1.Recordset = db.OpenRecordset((2004), dbOpenTable)'允许改写的参数