I am facing a strange issue regarding mshflexgrid. mshflexgrid1.rows is returning 5 while on the grid i can see only 1 row. please help me asap.

For I = 1 To rs.recordcount
frmresolveBase2File.MSHFlexGrid1.Row = l
tranDatetime = Format(rs!tran_datetime, "yyyy-mm-dd")
If tranDatetime >= startDate Then
l = l + 1
Else
If frmresolveBase2File.MSHFlexGrid1.Rows > 2 Then
frmresolveBase2File.MSHFlexGrid1.RemoveItem (l)
Else
frmresolveBase2File.MSHFlexGrid1.Clear
End If
End If

rs.MoveNext
Next
rows = MSHFlexGrid1.Rows

i am trying to filter the grid by date. here rows = 5 while on the display i can see only 1 row.