Password Change | Linked Table Manager

'This API updates the ODBC connection settings to the remote SQLServer database
Public Function UpdateConnectionsBasedOnTypePassThrough(MSysObjectsConnectString As String) As Boolean
On Error GoTo Err_UpdateConnectionsBasedOnTypePassThrough

  Dim adoCat As Object
  Dim adoTbl As Object

  'Define attachment to FE database
  Set adoCat = CreateObject("ADOX.Catalog")
  Set adoCat.ActiveConnection = CurrentProject.Connection

  'Refresh Linked Tables
  For Each adoTbl In adoCat.Tables
    If adoTbl.Type = "PASS-THROUGH" Then
      If InStr(1, adoTbl.Name, "~", vbTextCompare) = 0 Then
        adoTbl.Properties("Jet OLEDB:Link Provider String") = MSysObjectsConnectString
      End If
    End If
  Next

  'Good return code
  UpdateConnectionsBasedOnTypePassThrough = True

Exit_UpdateConnectionsBasedOnTypePassThrough:
  'Clean up the connection to the database
  Set adoTbl = Nothing
  Set adoCat = Nothing

  Exit Function

Err_UpdateConnectionsBasedOnTypePassThrough:
  Call errorhandler_MsgBox("Class: " & TypeName(Me) & ", Function: UpdateConnectionsBasedOnTypePassThrough(), adoTbl.Name: " & adoTbl.Name)
  UpdateConnectionsBasedOnTypePassThrough = False
  Resume Exit_UpdateConnectionsBasedOnTypePassThrough

End Function