VB: Ingresar datos en una matriz de varias dimensiones

[hchiesa]

Hola a todos:
tengo el siguiente problema en Access con Visual Basic.

Hago una consulta a una tabla con una sentencia SQL y quiero luego ingresar los datos de esa consulta en una matriz de varias dimensiones. El codigo que estoy usando es el siguiente:

Dim rs As Recordset
Dim bd As Database
Set bd = CurrentDb
Set rs = bd.OpenRecordset("SELECT [1_Productos a la Venta].IdStock, [1_Productos a la Venta].Stock_IdProducto, [1_Productos a la Venta].UnidadesStock, [1_Productos a la Venta].CostoUnidad, [1_Productos a la Venta].PrecioVenta FROM [1_Productos a la Venta] ORDER BY [1_Productos a la Venta].Stock_IdProducto, [1_Productos a la Venta].Familia, [1_Productos a la Venta].SubFamilia, [1_Productos a la Venta].Denominacion")
Dim MiVector() As Integer
Dim i As Integer
ReDim MiVector(rs.RecordCount - 1, rs.RecordCount - 1, rs.RecordCount - 1, rs.RecordCount - 1, rs.RecordCount - 1)
Do Until rs.EOF
MiVector(i, i, i, i, i) = rs(0).. rs(1)... rs(2)...
i = i + 1
rs.MoveNext
Loop

Mi problema está en lo que marqué en rojo en el código, es decir, en como asignar los valores del Recordset a la matriz de cinco dimensiones "MiVector".

gracias