关于MSHFlexGrid动态显示数据库记录的问题

[vbvc6666]

我要用MSHFlexGrid动态显示ACCESS2000数据库中的内容.代码如下:
With hfgridselprogram
.Rows = 1
.rowsel = 1
While Not rs.EOF
For j = 0 To hfgridprogramlist.Cols - 1
.TextMatrix(.rowsel, j) = rs.Fields(j + 1)
Next
.rowsel = .rowsel + 1
.Rows = .Rows + 1
rs.MoveLast
Wend
end with
错误说:无效的行
请问如何实现我要的功能啊.谢谢

[lihonggen0]

直接设置数据源：


Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Set MSHFlexGrid1.DataSource = Rs

[lxcc]

最好是直接和ADO绑定

其次
With hfgridselprogram
.Rows = 1
.rowsel = 1
While Not rs.EOF
For j = 0 To hfgridprogramlist.Cols - 1
.TextMatrix(.rowsel, j) = rs.Fields(j + 1)
Next
.rowsel = .rowsel + 1
.Rows = .Rows + 1
rs.MoveLast
Wend
end with

这个什么意思？.rowsel = .rowsel + 1
如果要增加列应该是.cols=.cols+1
.rowsel表明是当前选中的行号