将ADO访问Access数据库返回的记录集中的数据赋给数组的问题,帮帮忙啊

把ADO对象连接数据库,把符合查询条件的纪录集中数据赋给二维数组,我只知道数据的字段数,不知道记录数,我就定义了一个动态数组,运行提示我下标出界,问题出在哪呢,数据库已连接,代码如下
varSource = "select * from TireData where TireManufacturer='" & var1 & "' and TestDate='" & var7 & "' and TestState='纯侧偏'"
rs2.CursorLocation = adUseClient
rs2.Open varSource, cnn, 3, 3    'cnn为连接字符串
Dim rc As Integer
 rc = rs2.RecordCount
 Dim lateral() As Double 
 rs2.MoveFirst
 Dim i As Integer
 For i = 1 To rc
 lateral(i, 1) = rs2.Fields(10)
 lateral(i, 2) = rs2.Fields(11)
 lateral(i, 3) = rs2.Fields(12)
 lateral(i, 4) = rs2.Fields(13)
 lateral(i, 5) = rs2.Fields(14)
 lateral(i, 6) = rs2.Fields(15)
 lateral(i, 7) = rs2.Fields(16)
 lateral(i, 8) = rs2.Fields(17)
 lateral(i, 9) = rs2.Fields(18)
 lateral(i, 10) = rs2.Fields(19)
 lateral(i, 11) = rs2.Fields(20)
 rs2.MoveNext
 Next