Another path:


work

Set extwbk = Workbooks.OpenDatabase(Filename:="C:\Users\franco_g\info\CARTELLA_A\CERCA 31_10_20\data_base\max.mdb", CommandText:=Array("STU"), CommandType:=xlCmdTable, ImportDataAs:=xlTable)
not work

Workbooks.OpenDatabase(Filename:="C:\Users\franco_g\info\CARTELLA_A\CERCA 31_10_20\data_base\max.mdb", CommandText:=Array("STU"), CommandType:=xlCmdTable, ImportDataAs:=xlTable)