Помогите с MSHFlexGrid, плиз. - VB

Формулировка задачи:

приветствую всех
Помогите с MSHFlexGrid, плиз.
У него есть какое-то максимальное количество строк, которое он может отображать?
И если да - как показывать то, что он не отображает?
Например у меня в БД 3000 строк, Грид показывает только 2000. как показать остальные 1000?
спасибо заранее

Решение задачи: «Помогите с MSHFlexGrid, плиз.»

textual
                            Листинг программы 
                        

                            <font color="blue">Option</font> <font color="blue">Explicit</font>

<font color="blue">Private</font> <font color="blue">Const</font> PAGE <font color="blue">As</font> <font color="blue">Integer</font> = <font color="darkblue"><b>20</b></font>
<font color="blue">Private</font> mintPagedArray() <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Private</font> mlngPages <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Private</font> <font color="blue">Sub</font> cmdLoadFirstPage_Click()
    PopulatePagedArray
    AddPage
    MSHFlexGrid1.RemoveItem <font color="darkblue"><b>1</b></font>
    cmdLoadFirstPage.Enabled = False
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> cmdSearch_Click()
    MSHFlexGrid1.TopRow = CLng(txtSearch.Text)
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> MSHFlexGrid1_Scroll()
   <font color="blue">If</font> MSHFlexGrid1.RowIsVisible(mlngPages) = False <font color="blue">Then</font>
        PopulatePagedArray
        AddPage
   <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> AddPage()
    <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Long</font>
    
    <font color="blue">If</font> (mlngPages - <font color="darkblue"><b>1</b></font>) * (PAGE) <= MSHFlexGrid1.TopRow <font color="blue">Then</font>
        <font color="blue">If</font> mlngPages * PAGE < UBound(mintPagedArray) <font color="blue">Then</font>
            mlngPages = mlngPages + <font color="darkblue"><b>1</b></font>
        
            <font color="blue">For</font> i = (mlngPages - <font color="darkblue"><b>1</b></font>) * PAGE <font color="blue">To</font> mlngPages * PAGE - <font color="darkblue"><b>1</b></font>
                MSHFlexGrid1.AddItem vbTab & mintPagedArray(i)
            <font color="blue">Next</font> i
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">End</font> <font color="blue">If</font>
    
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> PopulatePagedArray()
    <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Long</font>
    
    <font color="blue">ReDim</font> Preserve mintPagedArray((mlngPages + <font color="darkblue"><b>1</b></font>) * PAGE)
    
    <font color="blue">For</font> i = mlngPages * PAGE + <font color="darkblue"><b>1</b></font> <font color="blue">To</font> (mlngPages + <font color="darkblue"><b>1</b></font>) * PAGE
        mintPagedArray(i - <font color="darkblue"><b>1</b></font>) = i
    <font color="blue">Next</font> i
        
<font color="blue">End</font> <font color="blue">Sub</font>
                        