向vsflexgrid填充数据
谁能帮我写个向vsflexgrid表格控件填充数据基本程序啊

谢谢

假如：已经有个数据库 里面有个表：库存表.有四个字段分别为。本期库存，上期库存。收入，发出。

[解决办法]
一、可以直接绑字，速度比较理想
1、建立数据的连接,比如是 con
2、建立recordset，比如是rs

用下面的方法

rs.open "本期库存,上期库存,收入,发出 from 库存表 ",cn
with vsflexgrid
set .recordsource=rs
rs.close
end with

二、用additem方法实现
with vsflexgrid
.additem "第一列 "& vbtab & "第二列 "
end with

三、用.TextMatrix赋值
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer

With VSFlexGrid1
For i = 0 To .Rows - 1

For j = 0 To .Cols - 1
.TextMatrix(i, j) = CStr(i) & "- " & CStr(j)

Next

Next

End With
End Sub

[解决办法]
........
这样
前面定义好变量 数据库连接 数据集 等
然后下面的代码
SqlStr= "select * from 库存表 "
set rs=conn.excute(sql)
do while not rs.eof
Grid.AddItem rs!本期库存 & vbtab & rs!上期库存 & vbtab & rs!收入 & vbtab & rs!发出
rs.MoveNext
loop