我想在VB中用MSCHART随意调用SQL数据库中多列，如果调用第一列，数据很正常，如果继续调用第二列数据就混乱了，如果调用第三列程序就出错了，请高手指点，帮帮，谢谢
datarec.Open strSQL, dataconn
Dim lngRecordCount As Long
Dim lngI As Long, lngJ As Long
lngRecordCount = 0
'计算记录数量，因为RECORDSET的RECORGCOUNT属性不稳定
Do Until datarec.EOF
lngRecordCount = lngRecordCount + 1
datarec.MoveNext
Loop
datarec.MoveFirst
Frm_main_plant.MSChart1.RowCount = lngRecordCount
For lngI = 1 To lngRecordCount
Frm_main_plant.MSChart1.Row = lngI
'设置Row标签，这个标签将会在横轴上显示出来
Frm_main_plant.MSChart1.RowLabel = datarec.Fields("监测时间").Value
For i = 0 To List2.ListIndex Step 1
t = i + 1
Frm_main_plant.MSChart1.columnCount = t
Frm_main_plant.MSChart1.Plot.SeriesCollection(t).LegendText = List2.List(i)
'填充表格数据
Frm_main_plant.MSChart1.Data = Val(datarec.Fields(List2.List(i)).Value)
Frm_main_plant.MSChart1.Refresh
datarec.MoveNext
Next i
Next lngI
'datarec.MoveNext
datarec.Close