VB6 连接SQL SERVER数据库，向 ListView写数据时提示35609 element not found

[yesterday2000]

Private Sub 查询_Click()
Dim QGJTCGD As New ADODB.Recordset
QGJTCGD.CursorLocation = adUseClient
QGJTCGD.CursorType = adOpenKeyset
QGJTCGD.LockType = adLockReadOnly
TCGDA = "select 序号,sum(实收金额) as 实收金额,count(*) as 品种数 from 挂单 group by 序号"
QGJTCGD.Open TCGDA, conn
If QGJTCGD.RecordCount = 0 Then
MsgBox "系统中没有挂单，按<确定>继续！！"
Exit Sub
End If
ListView1.ListItems.Clear

ListView1.view = 3
Do While Not QGJTCGD.EOF

Set LSTAC = ListView1.ListItems.Add(, "C" & QGJTCGD("序号") & xixAA, QGJTCGD("序号"), "a1")
Dim lngColGD As Long
Dim varValueGD As Variant

For lngColGD = 2 To ListView1.ColumnHeaders.Count

varValueGD = QGJTCGD(ListView1.ColumnHeaders(lngColGD).Text).Value
If lngColGDgd = 2 Then
LSTAC.SubItems(lngColGD - 1) = IIf(IsNull(varValueGD), "", Format(varValueGD, "0.00"))
Else
LSTAC.SubItems(lngColGD - 1) = IIf(IsNull(varValueGD), "", varValueGD)
End If
Next
QGJTCGD.MoveNext
xixAA = xixAA + 1
Loop


ListView1.Left = (frmpos.ScaleWidth - ListView1.Width) / 2
ListView1.Visible = True
ListView1.SetFocus


End Sub

[yesterday2000]

Set LSTAC = ListView1.ListItems.Add(, "C" & QGJTCGD("序号") & xixAA, QGJTCGD("序号"), "a1") 这句出错！！！！

[赵4老师]

注释掉所有On Error Resume Next语句，在VB IDE中运行， 出错后点击调试，光标会停在出错的那条语句处， 或者 事先在怀疑可能有逻辑错误的语句处设置断点，运行经过断点时中断， 此时可以在立即窗口中使用 ?变量名 或 ?函数名(函数参数) 或 过程名(参数) 辅助调试。

[yesterday2000]

找到原因，没有加载ImageList控件，加载后并增加一图片命名为a1就好了！！！

[yesterday2000]

是35601错误，打错字了！！！

[赵4老师]

引用 4 楼 yesterday2000 的回复:

是35601错误，打错字了！！！

关于自己是否适合编程的很简单的测试： 在报纸或杂志上随便找一段约1000字的文章，在Word中输入一遍。输完后再参考下面答案： A里面有10处以上文字或标点错误 B里面没有文字或标点错误并敢为此跟人打赌 C里面没有文字或标点错误并且字体和排版完全与原稿一致 D打印在半透明的纸上和原稿重叠在一起检查一模一样，且自我感觉很有成就感 A不适合编程（理由：打字准确度偏低、粗心大意） B初级程序员（理由：打字准确度很高、认真细致、自信、理解全角半角概念） C高级程序员（理由：在B的基础上理解字体和排版也是电脑打印的重要因素、但相比D还不够偏执、精益求精、结果可验证） D软件项目经理（理由：能针对项目给出令人信服的细致到极点的需求说明和典型测试用例。用户几乎挑不出毛病。专业！） 如果想从A变成B的话，到我的资源http://download.csdn.net/detail/zhao4zhong1/4084259里面下载“适合程序员的键盘练习”