【求助】DATAGRID控件问题。。

本人用DataGrid控件显示了一个数据表，想试用点击“下一页”来控制表中左边的光标随之向下移动。部分代码如下。
[code=VB][/code]
with rs
   
   
  .MoveNext
   
  If .EOF Then
   
  MsgBox "记录已到尾！", , "提示"
   
  .MoveLast
   
  End If
   
  If DataGrid1.Row = rs.RecordCount - 1 Then
   
  DataGrid1.Row = rs.AbsolutePosition
   
  End If
   
  If DataGrid1.Row < rs.RecordCount - 1 Then
   
  DataGrid1.Row = DataGrid1.Row + 1
   
  End If


显示的记录会通过MOVENEXT移动到下一条，但是左边的光标不会移动，要使用
DataGrid1.row = DataGrid1.row + 1 才能使左边的光标移动。但是有一个分界条件我找不到。
运行了以后可以实现这个功能，但是当到达最后一个的时候就会出错，显示“行号无效”。而且我这个条件的分点也有问题。

  请高人帮小弟指点一下。。谢谢。！

当前行+1