这个vsflexgrid的网格引导程序LoadRsttoGrid！解决方案

这个vsflexgrid的网格引导程序LoadRsttoGrid！
Public   Sub   LoadRsttoGrid(fg   As   VSFlexGrid,   rst   As   ADODB.Recordset,   Optional   ByVal   ListNo   As   Boolean   =   True)
        Dim   lngrow   As   Long,   lngcol   As   Long
        Dim   i   As   Long,   j   As   Long
        Dim   strItem   As   String

        lngrow   =   rst.RecordCount
        If   rst.Fields.Count   >   fg.Cols   Then
                lngcol   =   fg.Cols   -   1
        Else
                lngcol   =   rst.Fields.Count   -   1
        End   If

        With   fg
                .rows   =   1
                For   i   =   1   To   lngrow
                        If   ListNo   =   True   Then
                                strItem   =   i   &   Chr(9)
                        Else
                                strItem   =   " "
                        End   If
                       
                        For   j   =   0   To   lngcol
                                strItem   =   strItem   &   rst(j)   &   Chr(9)
                        Next
                       
                        .AddItem   Mid(strItem,   1,   Len(strItem)   -   1)
                       
                        rst.movenext
                Next
        End   With
       
End   Sub

[解决办法]
rst.RecordCount 有时不会返回真实的记录数的，
所以应该这样比较好：

Public Sub LoadRsttoGrid(fg As VSFlexGrid, rst As ADODB.Recordset, Optional ByVal ListNo As Boolean = True) 
Dim lngrow As Long, lngcol As Long 
Dim i As Long, j As Long 
Dim strItem As String 

lngrow = rst.RecordCount 
If rst.Fields.Count > fg.Cols Then 
lngcol = fg.Cols - 1 
Else 
lngcol = rst.Fields.Count - 1 

End If 

With fg 
do until rst.eof
If ListNo = True Then 
strItem = i & Chr(9) 
Else 
strItem = "" 
End If 

For j = 0 To lngcol 
strItem = strItem & rst(j) & Chr(9) 
Next 

.AddItem Mid(strItem, 1, Len(strItem) - 1) 

rst.movenext 
  loop
End With 

End Sub
[解决办法]
additem是vsflexgrid中最慢的方法了
为什么不直接用数据绑定
set fg.datasource=rst