想在ID列内按顺序填入1、2、3。。。，但为什么指示Adodc1.Recordset.MoveNext键列不足或不正确。更新影响多行。谢谢

Question

此语句的目的是在“编号”中人工添加自然数。思路：首先，指针到第一条，添加后再下一条，最后回到第一条。
“编号”列为Integer。
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\gg.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from aa"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.RefreshAdodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
  Adodc1.Recordset.Fields("编号") = i
  Adodc1.Recordset.MoveNext
  If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
Next i
End Sub

Answer 1

select *, 编号 = 
    (select count(1) from aa b where b.id <= a.id)
from aa a