用VBA刷新ODBC连接表,也就是SQL SERVER表

Public Function flashTbl()
    Dim db As DAO.Database
    Dim tbl As TableDef
    Dim a As String
    Dim b As String
    Dim d As String

     a = "sa" '数据库用户
     b = "123456" '数据库口令
     d = "CJGL2005" '数据库名称
     Set db = CurrentDb
        For Each tbl In db.TableDefs
            If tbl.Attributes = 536870912 Then
                tbl.Connect = "FILEDSN=D:\用户目录\我的文档\CJGL2005.dsn;UID=" & a & ";PWD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
                tbl.Attributes = dbAttachSavePWD
                tbl.RefreshLink
            End If
    Next
End Function