Relinking Code issue

[RPFeynman06]

I have a client using of all things DBF files. Now I run the code below and can refresh the links but when I try to change the td.connect by uncommenting it, I get the error the path is invalid. Any ideas?

Function relinkDBF()
   Dim db As DAO.Database, rs As DAO.Recordset, tds As DAO.TableDefs, td As DAO.TableDef, ErrCount As Integer
    
    Set db = CurrentDb
    Set tds = db.TableDefs
    
On Error GoTo Err_Proc
    For Each td In tds
    'td.Connect = "dBASE III;HDR=NO;IMEX=2;ACCDB=YES;DATABASE= C:\Users\Sergi.Arthur\Desktop\TJS051622"
    If Right(td.SourceTableName, 3) = "DBF" Then
    Debug.Print Right(td.SourceTableName, 3), td.SourceTableName, td.NAME, td.Connect
    td.RefreshLink
    End If
    Next
Exit_Proc:
    Exit Function
Err_Proc:
    Select Case Err.NUMBER
        Case 3011
            ErrCount = ErrCount + 1
            Resume Next
        Case Else
            MsgBox Err.NUMBER & "-" & Err.Description
            Resume Exit_Proc
    End Select
End Function

[arnelgp]

see this link, it need the .Connect property to be filled first before issueing .RefreshLink.
TableDef.RefreshLink method (DAO) | Microsoft Docs

[RPFeynman06]

see this link, it need the .Connect property to be filled first before issueing .RefreshLink.
TableDef.RefreshLink method (DAO) | Microsoft Docs

You can see that this is the case from my code.

[arnelgp]

You can see that this is the case from my code.

is it? you Comment out the Connect part.