【求助】DATAGRID控件问题。。

本人用DataGrid控件显示了一个数据表，想试用点击“下一页”来控制表中左边的光标随之向下移动。部分代码如下。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 才能使左边的光标移动。但是有一个分界条件我找不到。
运行了以后可以实现这个功能，但是当到达最后一个的时候就会出错，显示“行号无效”。而且我这个条件的分点也有问题。  请高人帮小弟指点一下。。谢谢。！