vb 6.0 grid显示问题

我遇到一个问题，数据库中查处10条记录，就是在显示的时候前8条显示不错来，调试拉很长时间，郁闷啊
strSQL = "select sample_no, WTg, SIZEmml, ovalmm, PDOmm from inspect_value where" _
    & " Inspect_no = '" & strInspectNo & "' order by sample_no asc"
    Rst.Open strSQL, Conn, , , adCmdText
    While Not Rst.EOF
       If IsNumeric(Rst!sample_no) Then
         grid2.AddItem Rst!sample_no & vbTab & Rst!WTg & vbTab & _
         Rst!SIZEmml & vbTab & Rst!ovalmm & vbTab & Rst!PDOmm
       End If
       Rst.MoveNext
    Wend
    Rst.Close --------------------编程问答-------------------- 查一下前8条的sample_no字段是否为数字?如果不是数字当然不显示.再查一下前8条是否符合" Inspect_no = '" & strInspectNo 这个条件
另外,ASC为默认查询排序可以不写.
strSQL = "select sample_no, WTg, SIZEmml, ovalmm, PDOmm from inspect_value where" _
    & " Inspect_no = '" & strInspectNo & "' order by sample_no asc"
    Rst.Open strSQL, Conn, , , adCmdText
    rst.movefirst
         msgbox "符合条件的记录数" &rst.RecordCount '测试用代码
    While Not Rst.EOF
      If IsNumeric(Rst!sample_no) Then
        grid2.AddItem Rst!sample_no & vbTab & Rst!WTg & vbTab & _
        Rst!SIZEmml & vbTab & Rst!ovalmm & vbTab & Rst!PDOmm
      else'测试用代码
         msgbox Rst!sample_no & "不是数字,未写入!"
      End If
      Rst.MoveNext
    Wend
    Rst.Close --------------------编程问答-------------------- 我步步调试啦，不行的啊，也执行啦additem就是不全部数据，总共16条数据，只显示后8条，难道跟分页有关，在线等待，谢谢，调试半天啦，真郁闷

补充：VB ,  控件