ado datagrid 删除在增加序号出错~达人进~高分

不想用accsee的自动编号 删除在添加后序号不连续
也不想换别的控件了,就想研究下datagrid的 :)Private Sub Form_Load()
With Adodc1.Recordset
 If .RecordCount > 0 Then
  .MoveFirst
  While Not .EOF
   For i = 0 To .RecordCount - 1
    .Fields(0) = i
   .MoveNext
    Next
  Wend
 End If
End With
End SubPrivate Sub Command1_Click()
With Adodc1.Recordset
 .AddNew
 .Fields(1) = "暂无"
 .Fields(2) = 0
 .Update
 
 For i = 0 To Adodc1.Recordset.RecordCount - 1
  .Fields(0) = i
 Next
End With
End Sub载入，增加，删除操作“序号”都显示正常。
删除(除最后一个数据正常)后在添加“序号”就不正常了。
比如：
序号 内容
0 
1 
2=============================================== 
列子1：删除以上序号2在填加新数据(如下显示正常)
0 
1 
2 
 
列子2：删除以上序号1在填加新数据(如下显示不正常)
0 
2  
2  
各位达人，有什么好办法吗？