Compañero no se puede redimensionar una matriz, bueno corrijo si se puede pero no se guardan los valores almacenados, tendrias que guardar los elementos ya almacenados en la matriz, redmimensionarla y volverlos agregar...
Veo que usas el recordset verdad?, puedes intentar lo siguiente, explico un poco
Código vb:
Ver original'// Defines la Matriz
Dim msMatriz as String
'// El recordset tiene estas 2 propiedades
'// Nota abrelo del lado del cliente
Recordset.CursorLocation = adUseClient
REcordset.Open '// Lo abres como tu desees estoe s solo para que te guies
Recordset.RecordCount '// Con esto obtienes el numero de renglones de tu matriz
Recordset.Fields.Count '// Con este el numero de columnas.
'// Ahora si dimensionas tu matriz, como tu ya sabes cuantos renglones tiene el
'// recorset y cuantos campos (columnas), ya no tienes que redimensionarla
'// varias veces, con una sola vez bastara....
Redim msMatriz(1 to Recordset.RecordCount, 1 to Recordset.Fields.Count)
'// Ya nada mas pasas los elemntos a la matriz....
Saludos, comentas por favor...