Sub copyLinkTable(nameLinkTable, newName)
'nameLinkTable = имя линкованной таблицы
'newName - новое имя локальной таблицы
    Dim db As dao.Database, s, stec, app As Application
    Set db = CurrentDb
    s = Replace(db.TableDefs(nameLinkTable).Connect, ";DATABASE=", "")
    Set app = CreateObject("Access.application")
    app.OpenCurrentDatabase s
    stec = db.name
    app.DoCmd.CopyObject stec, newName, acTable, "sqlru"
    db.TableDefs.Refresh
    app.CloseCurrentDatabase
    Set app = Nothing
End Sub

'Использование
copyLinkTable "ИмяЛинкованнойТаблицы", "НовоеИмяЛокальнойТаблицы"