Access - Distribuir actualizaciones de un programa en access

Public Function RefreshLinksToPath(strNewPath As String, _

    Optional OnlyForTablesMatching As String = "*") As Boolean

    Dim collTbls As New Collection

    Dim i As Integer

    Dim strDBPath As String

    Dim strTbl As String

    Dim strMsg As String

    Dim strDBName As String

    Dim strcon As String

    Dim dbCurr As DAO.Database

    Dim dbLink As DAO.Database

    Dim tdf As TableDef

    Set dbCurr = CurrentDb

    On Local Error GoTo fRefreshLinks_Err

    'First get all linked tables in a collection'

    dbCurr.TableDefs.Refresh

    For Each tdf In dbCurr.TableDefs

        With tdf

            If ((.Attributes And TableDefAttributeEnum.dbAttachedTable) = TableDefAttributeEnum.dbAttachedTable) _

               And (.Name Like OnlyForTablesMatching) Then

                collTbls.Add Item:=.Name & .Connect, Key:=.Name

            End If

        End With

    Next

    Set tdf = Nothing

    ' Now link all of them'

    For i = collTbls.Count To 1 Step -1

        strcon = collTbls(i)

        ' Get the original name of the linked table '

        strDBPath = Right(strcon, Len(strcon) - (InStr(1, strcon, "DATABASE=") + 8))

        ' Get table name from connection string '

        strTbl = Left$(strcon, InStr(1, strcon, ";") - 1)

        ' Get the name of the linked database '

        strDBName = Right(strDBPath, Len(strDBPath) - InStrRev(strDBPath, "\"))

        ' Reconstruct the full database path with the given path '

        strDBPath = strNewPath & "\" & strDBName

        ' Reconnect '

        Set tdf = dbCurr.TableDefs(strTbl)

        With tdf

            .Connect = ";Database=" & strDBPath

            .RefreshLink

            collTbls.Remove (.Name)

        End With

    Next

    RefreshLinksToPath = True

fRefreshLinks_End:

    Set collTbls = Nothing

    Set tdf = Nothing

    Set dbLink = Nothing

    Set dbCurr = Nothing

    Exit Function

fRefreshLinks_Err:

    RefreshLinksToPath = False

    Select Case Err

        Case 3059:

        Case Else:

            strMsg = "Error Information..." & vbCrLf & vbCrLf

            strMsg = strMsg & "Function: fRefreshLinks" & vbCrLf

            strMsg = strMsg & "Description: " & Err.Description & vbCrLf

            strMsg = strMsg & "Error #: " & Format$(Err.Number) & vbCrLf

            MsgBox strMsg

            Resume fRefreshLinks_End

    End Select

End Function

create table Registros

(

id integer primary key not null identity(1,1),

cliente varchar(100),

telefono varchar(18)

);