Insertar datos en ACCESS

Es necesário activar en VBA - TOOLS - REFERENCES

     Microsoft ActiveX Data Objects 2.6 Library

Y este es el módulo VBA:

Sub XLCD_to_Access()
    
    Dim cnt As ADODB.Connection
    Dim stSQL As String, stCon As String, stDB As String
    Dim stSQL2 As String
    
    stDB = "X:\BasedeDatos.accdb"   'Aquí es el camino a la BASE DE DATOS
    stCon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & stDB & ";"
   
     ' SQL code for GL Insert to Access

     ' TablaBasedeDatos es la tabla de Access donde queremos insertar los datos

     ' HojaExcel es la hoja excel donde están los datos, en esta hoja, tendremos la primera

     ' fila con los nombres de los campos, y a partir de la segunda, los datos a insertar
    stSQL = "INSERT INTO TablaBasedeDatos SELECT * FROM [HojaExcel$] IN '" _
    & ThisWorkbook.FullName & "' 'Excel 8.0;'"
    
     'set connection  variable
    Set cnt = New ADODB.Connection
     'open connection to Access db and run the SQL
    With cnt
        .Open stCon
        .CursorLocation = adUseClient
        .Execute (stSQL)
    End With
     'close connection
    cnt.Close
    
     'release object from memory
    Set cnt = Nothing
End Sub

Fantastico !!