如何用代码刷新sql链接表

我看群里有这方面的代码：

Function relink() Dim db As Database Dim tbl As TableDef Dim a As String Dim b As String Dim d As String a = "sa"'数据库用户b = "abc"'数据库口令 d = "abcde"'数据库名称
Set db = CurrentDb
For Each tbl In db.TableDefs
If tbl.Attributes = 536870912 Then
tbl.Connect = "FILEDSN=d:demosteel.dsn;UID="& a _
              &";PWD="& b &";WSID=;DATABASE="& d _
              &";Network=DBMSSOCN"
tbl.Attributes = dbAttachSavePWD
tbl.RefreshLink
End If
Next End Function