根据数据库中的内容动态使用mschart绘图

为了根据数据库中的内容动态绘制折现统计图，因此使用下面的代码来判断数据库中有几组数据。

VB code

rs3.Open "select date,student,op from log where student=" & "'" & Combo2.Text & "'", cnn, 1, 3
Do Until rs3.EOF
rs3.MoveNext
times = times + 1
Loop
rs3.Close

结果到这里悲剧了，不能使用变量声明变量……各位牛人们，这种情况怎么办？
VB code

Dim arrData4(1 To times, 1 To times)
MSChart1.ShowLegend = True
arrData4(1, 1) = rs3("date")
………………

我的想法
1、定义一个二维数组，第一维曲线的X，第二维，曲线的Y
2、查询数据库，将得来的数据存入数组中。参考：http://download.csdn.net/detail/veron_04/3827200
3、将数组赋值给MSChart，参考：http://download.csdn.net/detail/veron_04/1483925