Thanks you rorya

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
max