Connect-string til ODBC table

Hej

Jeg prøver programmatisk at opdatere en Connect-string for en række tables, men selvom jeg synes jeg følger anvisningen i hjælp sker der ikke rigtig noget med strengen. Her er min kode:

Dim tdef As dao.TableDef
Dim strSQL As String
Dim strConnect As String
Dim dbs As dao.Database
Dim n As Integer

Set dbs = CurrentDb

strConnect = "XXX"

Set tdef = dbs.TableDefs("tbl1234")
    If tdef.Connect <> "" Then  'for at undgå lokale tabeller
        tdef.Connect = strConnect
        tdef.RefreshLink
    End If
    Set tdef = Nothing

Hvis jeg kigger på tabellen MsysObjects sker der vist et-og-andet med posten, men Connect ændrer sig ikke.

Min backend er en MS SQL-server