更新数据的问题？？
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=one.mdb;Persist Security Info=False"
rs.CursorLocation = adUseClient
Adodc1.RecordSource = "update sfdata set ye=0"
Adodc1.Recordset.Requery
End Sub
请问各位长老，怎么老更新不了数据库中的内容呀？
