How to refresh links in a runtime application in Microsoft Access

Option Compare Database
Option Explicit

Private Declare Function apiSearchTreeForFile Lib "ImageHlp.dll" Alias _
        "SearchTreeForFile" (ByVal lpRoot As String, ByVal lpInPath _
        As String, ByVal lpOutPath As String) As Long


Function RefreshLinks()
    On Error GoTo ErrorHandler

        
    Dim objCat As New ADOX.Catalog 'Define the ADOX Catalog Object
    Dim objTbl As ADOX.Table 'Define the ADOX Table Object

    Dim strSearchFolder As String 'Folder to Search in.
    Dim strFilename As String 'Db Name of the Linked Table
    Dim strFullName As String 'Path & DB Name of the Linked Table.
    Dim strSearchFile As String 'The new path of the database.
    
    Dim blnTablesNotLinked As Boolean 'Determines if links are valid
    
    'Open the catalog
    objCat.ActiveConnection = CurrentProject.Connection
    
    'Loop through the table collection and refresh the linked tables.
    For Each objTbl In objCat.Tables
        
        ' Check to make sure the table is a linked table.
        If objTbl.Type = "LINK" Then
            strFullName = objTbl.Properties("Jet OLEDB:Link Datasource")
            strFilename = Mid(strFullName, InStrRev(strFullName, "\", _
                            Len(strFullName)) + 1, Len(strFullName))
            strSearchFolder = CurrentProject.Path
            'The following line of code attempts to refresh the link.
            'If the source cannot be found an error is generated.
            'Please note that this code only checks one table to determine
            'whether or not the links are valid.
            objTbl.Properties("Jet OLEDB:Link Datasource") = strFullName
            
            If blnTablesNotLinked = False Then
                Exit Function
            Else
                'Set the search path to the path of the current project.
                'The assumption is that the linked tables are located in subfolders.
                strSearchFile = SearchFile(strFilename, strSearchFolder)
                objTbl.Properties("Jet OLEDB:Link Datasource") = strSearchFile
            End If
        End If
    Next
    
    MsgBox "The links were successfully refreshed!!! "

ExitHandler:
     Exit Function
     
ErrorHandler:
     Select Case Err.Number
        Case -2147467259
            blnTablesNotLinked = True
            Resume Next
        Case Else
            MsgBox Err.Description & " " & Err.Number
            Resume ExitHandler
    End Select
End Function

Function SearchFile(ByVal strFilename As String, _
            ByVal strSearchPath As String) As String
    'Search the folder for first occurrence of the source databases.
    Dim strBuffer As String
    Dim lngResult As Long
    SearchFile = ""
    strBuffer = String$(1024, 0)
    lngResult = apiSearchTreeForFile(strSearchPath, strFilename, strBuffer)
    If lngResult <> 0 Then
        If InStr(strBuffer, vbNullChar) > 0 Then
            SearchFile = Left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
        End If
    End If
End Function