声明一个数组来保存记录集

Question

我添加了一个班级clsVehicle来保存车队公司的车辆详细信息。该类的一部分是一个数组，它根据车辆的注册号保存以前作业的详细信息。 该数组将保存一个动态数组（取决于记录集中返回的行）。有6列。 我用过

Dim array() as Variant 

然后循环记录集：

dim count as integer
count=0
Do While rs.EOF = False
    array(Count, 0) = rs!DateAdded
    array(Count, 1) = rs!S24ref
    array(Count, 2) = rs!Status
    e.t.c.
    Count = Count + 1
    rs.MoveNext
Loop

当到达数组（Count，0）行时，它总是说下标超出范围。