求救拉~~出问题了~~msflextgrid 加数据时出错

[lbszhl]

我在把ACCESS中的数据 加到 msfgrid 中 老出错！

我的代码

On Error Resume Next
RS.MoveFirst
If Err.Number > 0 Then Exit Sub

Do While Not RS.EOF
grdtbl.AddItem (Empty) “这句有问题，一运行程序，程序就出现 死机状态 不能用 VB也被迫关闭”
grdtbl.Row = grdtbl.Rows - 1

grdtbl.Col = 0
grdtbl.Text = CStr(RS.Fields("jnum").Value)
grdtbl.CellAlignment = flexAlignCenterCenter

grdtbl.Col = 1
grdtbl.Text = CStr(RS.Fields("jno").Value)
grdtbl.CellAlignment = flexAlignCenterCenter

grdtbl.Col = 2
grdtbl.Text = CStr(RS.Fields("jxb").Value)
grdtbl.CellAlignment = flexAlignCenterCenter

grdtbl.Col = 3
grdtbl.Text = CStr(RS.Fields("jads1").Value)
grdtbl.CellAlignment = flexAlignCenterCenter

grdtbl.Col = 4
grdtbl.Text = CStr(RS.Fields("jads2").Value)
grdtbl.CellAlignment = flexAlignCenterCenter

grdtbl.Col = 5
grdtbl.Text = CStr(RS.Fields("jname1").Value)
grdtbl.CellAlignment = flexAlignCenterCenter

grdtbl.Col = 6
grdtbl.Text = CStr(RS.Fields("jzz").Value)
grdtbl.CellAlignment = flexAlignCenterCenter

grdtbl.Col = 7
grdtbl.Text = CStr(RS.Fields("jname2").Value)
grdtbl.CellAlignment = flexAlignCenterCenter


grdtbl.RowData(grdtbl.Row) = RS.Fields("jnum").Value
RS.MoveFirst

Loop

[Dickson]

建议RS.MoveNext

[lbszhl]

在那里加啊？ 具体点好吗？

[daisy8675]

grdtbl.AddItem (Empty) “这句有问题，一运行程序，程序就出现 死机状态 不能用 VB也被迫关闭”
// 你这句是做什么的？告诉我