¿Cómo cambiar la cadena de conexión en tablas vinculadas de MS Access?

Function displayLinks()

    Dim tdf As TableDef

    Dim db As Database

        Set db = CurrentDb

        For Each tdf In CurrentDb.TableDefs

            If tdf.Connect <> vbNullString Then

               Debug.Print tdf.Name; " -- "; tdf.SourceTableName; " -- "; tdf.Connect

            End If

        Next

End Function

Function cambiarLinks()

    Dim tdf As TableDef

    Set db = CurrentDb

        For Each tdf In CurrentDb.TableDefs

            If tdf.Connect <> vbNullString Then

                tdf.Connect = "ODBC;DSN=xx;APP=Microsoft Office 2010;DATABASE=xx;TABLE=" & tdf.Name

                tdf.RefreshLink

            End If

        Next

End Function

Fuente: http://stackoverflow.com/questions/12606326/linked-table-ms-access-2010-change-connection-string