VB ADODC批改数据

VB ADODC修改数据
请问下利用ADODC控件如何修改数据库的某一个值？我在利用文本绑定数据库的情况下显示出数据，但是在修改其中的某一个值的时候，利用            Adodc1.Recordset.Update   
                        Adodc1.Refresh 代码更新保存，却发现没有保存了，是什么原因？该如何解决呢，请大侠指教
[解决办法]
我试过，没问题

Option Explicit

Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access DB\Database1.mdb;"
    Adodc1.RecordSource = "select top 1 数量 from T1"
    Adodc1.Refresh
End Sub

Private Sub Command1_Click()
    Text1.Text = Val(Text1.Text) + 1
    Adodc1.Recordset.addnew
    Adodc1.Recordset.fields("数量").Value = Val(Text1.Text)
    
    Adodc1.Recordset.Update
    Adodc1.Refresh
End Sub