Customizing a linked back-end Database

The code is simple, my example here is to enter a new database path from the text box, and then update the link. You can refer to it and change it.
Private Sub Command0_click ()
On Error GoTo Err_command0_click
Dim Cat as ADOX. Catalog
Dim TDF as ADOX. Table
Me.txtDBnewNAME.SetFocus
Set cat = New ADOX. Catalog
Set Cat. ActiveConnection = CurrentProject.Connection
Set TDF = Cat. Tables ("MyTable")
Tdf. Properties ("Jet oledb:link datasource") = Me.txtDBnewNAME.Text

Exit_command0_click:
Exit Sub

Err_command0_click:
MsgBox Err.Description
Resume Exit_command0_click
End Sub