Visual Basic - Necesito Ayuda URGENTE, Por Favor...

Hola a todos
tengo el sig codigo que calcula el numero maximo de un registro de una tabla de access, a traves de funciones de Excel:

Dim rs As DAO.Recordset
Dim db As Database
Dim consql As String
Dim i, a As Integer
Dim excl As Excel.Application
Dim MatrixData() As Integer

Private Sub Form_Load()
consql = "select *"
consql = consql & "from Tabla1"

Set db = OpenDatabase("C:\Mis documentos\Generador de Reportes 2\enero.xls.mdb")
Set rs = db.OpenRecordset(consql)
Set excl = CreateObject("excel.application")
End Sub

Private Sub Command1_Click()
ReDim MatrixData(rs.Fields.Count)
For i = 0 To rs.Fields.Count - 1
MatrixData(i) = rs.Fields(i).Value
Next i
a = Excel.Application.WorksheetFunction.Max(MatrixData)

grid.TextMatrix(1, 1) = a

ReDim MatrixData(0)
grid.TextMatrix(0, 1) = "Máximo"

End Sub

Como pueden ver, declaro una matriz, que lleno con un registro de la tabla, despues calculo el maximo a traves de funciones de excel, y lo muestro en un MSFlexgrid. Mi pregunta es como puede hacer lo mismo no solo para un registro sino para todos los que contenga la tabla, es decir, si mi tabla tiene 20 registros, como puedo hacerle para que me llene la matriz con cada uno de los registros, me calcule el maximo, lo muestre en el grid, borre la matriz, pase al sig registro y se repita el proceso. Espero se halla entendido mi problema, si no agradecere que me lo digan por favor.

De antemano gracias.