Ayúdame a cambiarlo, usa vb, excel y access juntos.
p> Dim rst As ADODB.Recordset
Establecer cnn = Nuevo ADODB.Connection
Establecer rst = Nuevo ADODB.Recordset
cnn.ConnectionString = "Provider= Microsoft.ACE.OLEDB.12..0; " & " fuente de datos = " & App.Path & "\access.mdb" 'nombre de archivo access.mdb
'---- --- -------------------------------Los datos de Excel se importan al acceso------------ - --------------------
Usando AppAccess
.OpenCurrentDatabase App.Path & "\ access.mdb", Verdadero
.DoCmd.TransferSpreadsheet acImport, , "Nombre de hoja", App.Path & "\excel.xlsx", True, "MeaProto!A2:L" 'Import
.CloseCurrentDatabase
Fin
.