[Resolvido]Acrescentar dados em uma matriz bidimensional

Function CarregaUndo(RstUndo As DAO.Recordset)
On Error Resume Next
If nCountUndo > 0 Then GoTo continuar
nCountUndo = 0
continuar:
ReDim varRsUndo(12, nCountUndo)
varRsUndo = RstUndo.GetRows(nCountUndo): nCountUndo = nCountUndo + 1 'passa o recordset para a variável varRsUndo
MsgBox varRsUndo(4, 0)
MsgBox varRsUndo(4, 1)
MsgBox varRsUndo(4, 2)

'------------------------------------------------------------------------------------------
' Procedure     : UndoDeleteRecord
' Author        : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
' Fórum         : Fórum Máximo Access -  http://maximoaccess.forumeiros.com/
' Date          : 02/07/2013
' Comentários   : Adiciona a uma matriz pública (VarRsUndo) os registros de um recordset
'                 Neste caso a variável RstDel conterá um único registro. no subform ao
'                 clique do botão "Excluir Registro", antes da exclusão este registrro
'                 será repassado a esta função que por sua vez adiciona o mesmo na Matriz
'                 Ao ser executada a primeira vez a variável nCount terá valor nulo e o
'                 códgo será direcionado à cláusula Else, assim após a primeira inserção
'                 de registros na matriz a mesma assumira o número de colunas e linha
'                 do recordset tornando-se uma matriz bidimensional, neste caso como meu
'                 recordset contém apenas 1 registros e 9 colunas a matriz terá a seguinte
'                 configuração: VarRsUndo(8,0) >> 9 colunas e 1 registro
'                 Após a primeira execução do código a variável nCountUndo será incrementada
'                 em 1 e na próxima execução correrá a primeira parte do códugo.
'                 Neste ponto eu crio uma Matriz temporária para conter os valores do registro
'                 no recodset e redimensiono a matriz VarRsUndo para lhe aumentar 1 registro
'                 Observe a instrução que utilizo para isso:
'                 ________________________________________________________________
'                 >>>>> ReDim Preseve VarRsUndo(NumeroColunas,NumeroRegistro) <<<<
'                 ================================================================
'                 A instrução ReDim Redimensiona a Matriz em número de colunas e linhas e
'                 a instrução Preserve mantém os valores anteriores que estão na matriz
'                 seguidamente realizo um loop na Matriz temporária em suas colunas e a
'                 cada loop vou adicionando os valores na respectiva coluna e na nova linha
'                 inserida no comando ReDim
'------------------------------------------------------------------------------------------
Function UndoDeleteRecord(RstDel As DAO.Recordset)
If nCountUndo > 0 Then
    Dim VarRsUndoTMP
    Dim X As Integer
    'Redimensiona a matriz apra aumentar uma linha preservando os registros anteriores
    ReDim Preserve VarRsUndo(0 To 9, nCountUndo)
    'Adiciono a matriz VarRsUndoTEMP os valores contidos no recordset
    VarRsUndoTMP = RstDel.GetRows
        'Faço um loop pelos campo da matriz temporária, observe que especifico o loop iniciando do 0 para o maior
        'valor de coluna, a instrução Ubound(Matriz,1 ou 2) retorna a maior coluna ou linha(2)
        For X = 0 To UBound(VarRsUndoTMP, 1)
            'Adicio à Matriz VarRsUndo os respectivos valores da matriz temporária
            VarRsUndo(X, nCountUndo) = VarRsUndoTMP(X, 0)
        'Vai para a próxima coluna
        Next X
        'Incremento a variável
        nCountUndo = nCountUndo + 1
Else
    'Adiciono à variável o valor 0
    nCountUndo = 0
    'Adiciono a primeira coleção de campos no registro de número 0 na matriz
    VarRsUndo = RstDel.GetRows
    'Incremento a variável em 1
    nCountUndo = nCountUndo + 1
End If
End Function

'---------------------------------------------------------------------------------------
' Procedure     : RestauraRegDel
' Author        : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
' Fórum         : Fórum Máximo Access -  http://maximoaccess.forumeiros.com/
' Date          : 03/07/2013
' Comentários   : Restaura os arquivos gravados na Matriz VarRsUndo adicionando regostros
'                 no recordset especificando a quantidade de registros restaurados
'---------------------------------------------------------------------------------------
Function RestauraRegDel(RstRest As DAO.Recordset)
Dim X, Y
Dim nCount As Integer
'Crio um novo registro
RstRest.AddNew
'Executo loop na matriz em seus registros
For Y = 0 To UBound(VarRsUndo, 2)
      'Faço loop nos campos da matriz, observe que começo em 1 pois o campo 0 é o da chave primária e não
      'poder ser aplicado na tabela, da mesma forma inicio a edição do recordset no campo x = 1
      For X = 1 To UBound(VarRsUndo, 1)
            'Adiciono ao Recordset VarRsUndo os respectivos valores de coluna e linha da matriz temporária
            RstRest(X) = Nz(VarRsUndo(X, Y), "")
        'Vai para a próxima coluna
        Next X
'Incremento a variável em 1
nCount = nCount + 1
MsgBox "Foram restaurados " & nCount & " Registros", vbInformation, "RESTAURAÇÃO EFETUADA"
'Movo para a próxima linha da matriz
Next Y
'Atualizo o Recordset
RstRest.Update
'Redimensiono a matriz a seus valores originais
ReDim VarRsUndo(0, 0)
End Function