Dim i As Long
Dim x  As Long
Dim dbs As DAO.Database
Dim tabla As DAO.TableDef
Dim campo As DAO.Field
Dim strListaCampos As String
Dim strListaValores As String

    Set dbs = CurrentDb
    Set tabla = dbs.TableDefs("MiTabla")
    
    For Each campo In tabla.Fields 'Para recorrer los campos existentes en la tabla
        strListaCampos = strListaCampos & IIf(strListaCampos = "", "", ",") & campo.Name
    Next campo
    
     For x = LBound(mtz, 1) To UBound(mtz, 1) 'Si la matriz es de la forma (50000,50) recorreremos los 50000 ítems que supongo serán los registros
    
'            strListaValores = Join(mtz, ",") 'No uso Join por que sólo funciona con matrices unidimensionales
                        'no conozco modo de indicarle la dimension de la que queremos que tome los valores a unir

        For i = LBound(mtz, 2) To UBound(mtz, 2) 'Para recorrer la dimensión núm.2 (La de los valores, que según la matriz (50000,50) serán 50 vueltas)
'           De este modo obtenemos los 50 valores de los 50 campos del registro actual (x)
                    
            strListaValores = strListaValores & IIf(strListaValores = "", "", ",") & "'" & CStr(mtz(x, i)) & "'"
            
        Next i
        i = 0 'reiniciamos i, para la próxima vuelta de x
        
        'En este punto, a cada vuelta de i (A cada registro de los 50000, ya tendremos los 50 nuevos valores para cada campo de cada registro)
        'Creamos el registro
    CurrentDb.Execute ("INSERT INTO MiTabla (" & strListaCampos & ") VALUES (" & strListaValores & ");")

    
    Next x