hmm - jeg er lidt i tvivl om hvad test1 skal gøre: Er det en allerede eksisterende linket tabel, som du vil ændre linket på?
Så skal du først fjerne det gamle link og derefter appende den nye.
Koden nedenfor er diminutiv, og bør naturligvis have passende kode til at håndtere fejl (hvis ikke tabellen findes i forvejen, hvis ikke filen findes osv), men den virker (her!). Hvis du skal have mere hjælp, så smid endelig en kommentar :)
Public Sub Test1(strTable As String)
CurrentDb.TableDefs.Delete (strTable)
Dim tbd
Set tbd = CurrentDb.CreateTableDef(strTable)
tbd.Connect = ";DATABASE=C:\import.mdb"
tbd.SourceTableName = strTable
CurrentDb.TableDefs.Append (tbd)
End Sub
mvh
MouseKeeperX