I use the following code to redirect a link in a database from one server to another. It works great, but I've now got a database where I need to redirect the links for more than one table. What kind of loop can I use to minimize the code to redirect the links for 7-8 tables?

Private Sub cmdRedirectEHILinks_Click()
On Error GoTo RedirectLink_Err

Dim cat As ADOX.Catalog
Dim tdf As ADOX.table
Dim strBackendPath As String
Dim strNewLocation As String
Dim strTemp As String

Set cat = New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
Set tdf = cat.Tables("TrailerCourts")
strBackendPath = [backendpath]
tdf.Properties("Jet OLEDB:Link Datasource") = strBackendPath
Set cat.ActiveConnection = CurrentProject.Connection
Set tdf = cat.Tables("TrailerCourts")

MsgBox "All EHI Links have been redirected."

Exit_RedirectLink_Err:
Exit Sub

RedirectLink_Err:
MsgBox Err.Description
Resume Exit_RedirectLink_Err

End Sub