Hi to all.
I don't understand where the mistake is:

this work
Dim extwbk As Object
Dim percorso As Object

'work

'Workbooks.OpenDatabase Filename:="\\pava\Avan\data_base\max.mdb", CommandText:=Array("STU"), CommandType:=xlCmdTable, ImportDataAs:=xlTable
Workbooks.OpenDatabase Filename:=percorso, CommandText:=Array("STU"), CommandType:=xlCmdTable, ImportDataAs:=xlTable
this not work:

Dim extwbk As Object
Dim percorso As Object

'not work

'set extwbk = Workbooks.OpenDatabase Filename:="\\pava\Avan\data_base\max.mdb", CommandText:=Array("STU"), CommandType:=xlCmdTable, ImportDataAs:=xlTable
'et extwbk = Workbooks.OpenDatabase Filename:=percorso, CommandText:=Array("STU"), CommandType:=xlCmdTable, ImportDataAs:=xlTable
error here: Filename:=

max