关于vsflexgrid删除不刷新显示的问题

我的删除代码如下
If CFlexGrid.Rows = 1 Then
MsgBox "暂无任何数据，请增加数据", , "提示"
Command2.Enabled = False
Exit Sub
End If
If rs.State = 1 Then
rs.Book = CFlexGrid.Book(CFlexGrid.Row)
i = CFlexGrid.TopRow
rs.Delete
rs.Update
CFlexGrid.DataRefresh
CFlexGrid.TopRow = i
End If
删除中间的行后，下面的数据全不显示，但另一个form同样的代码却没问题，在线等高手解答