vb中Datagrid的问题

   我用VB中使用Datagrid显示数据库中的记录，并且在图像框中显示"lj"列中路径所指的图片文件。Datagrid1的高度只能显示5行。点击“下一页”或“上一页”按钮进行浏览。
   但是我在试验中发现，当记录数超过5行时，例如记录总数为10条（此时Datagrid中出现垂直滚动条），浏览到第6行时图片就不再改变。使用Lable3控件记录当前记录行数，其也不再改变，定格为“记录总数：10条； 当前记录：第5条”。
    如果浏览到了第8行，此时图片框中显示的仍然是第5行记录的图片。但是现在点击“上一页”按钮又能够显示第7条记录，此时Lable3控件显示的却是“当前记录：第4条”哪为知道怎么回事？恳求赐教！部分代码如下：
'记录改变
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)     
    Label3.Caption = "记录总数:  " & DataGrid1.ApproxCount & "条;  当前记录：第 " & DataGrid1.Row + 1 & "条"
    On Error GoTo err
    Image1.Picture = LoadPicture(Adodc1.Recordset.Fields("lj"))
    Text3(3).Text = DataGrid1.Columns("ygzs")
err:
    If err.Number = 53 Then
        MsgBox err.Description
    End If
End Sub'上一条记录
Private Sub Command2_Click()                          
    Adodc1.Recordset.MovePrevious
    If Adodc1.Recordset.BOF Then
        Adodc1.Recordset.MoveLast
    End If
End Sub '下一条记录Private Sub Command3_Click()                          
     Adodc1.Recordset.MoveNext
    If Adodc1.Recordset.EOF Then
        Adodc1.Recordset.MoveFirst
    End If
End Sub