Below code works
DoCmd.TransferDatabase acLink, "Microsoft Access", "path_to_accdb", acTable, "table1", "table1"
In a for loop not work, show error 3011 "The Microsoft Access database engine could not find the object 'table1'.
tables = Array("table1", "table2", "table3")
For Each element In...