TKSoft-Online

Public Function RefreshLink(strConnectString As String, strTabName As String)
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
 
    Set db = CurrentDb
    Set tdf = db.TableDefs(strTabName)
    tdf.Connect = strConnectString
    tdf.RefreshLink
End Function

Public Function LinkedTable(sConnectString As String, strSourceTableName As String, _
                            Optional strTargetTableName As String = \"\"«»)
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb
    If strTargetTableName = \"\" Then strTargetTableName = strSourceTableName
    Set tdf = db.CreateTableDef(strTargetTableName)
    tdf.Connect = sConnectString
    tdf.SourceTableName = strSourceTableName
    db.TableDefs.Append tdf
End Function