在用mdb与sql sever2000链接时，有时需要刷新链接表，通过以下代码可以达到目的，此主题的解决参考了网友cwang的代码，并得到了微软工程师billy yao 的热心帮助，在此致谢！

  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:\demo\steel.dsn;uid= & a & ;pwd=
            & b & ;wsid=;database= & d & ;network=dbmssocn
             ''
                        tbl.attributes = dbattachsavepwd
                        tbl.refreshlink
                    end if
                next
            end function
            附上微软工程师billy yao的解答说明：
            根据您的描述，我对您的问题解答如下：
            1. dsn=gnts 中gnts是系统dsn的文件名。
            2. uid是用户名，并且它的值由变量a的值决定。pwd是密码，并且它的值由变量b的值决定。
            3. wsid 是指工作站的id号 (workstation id)。变量d的值表示数据库的名称。 network=dbmssocn
            指tcp/ip所使用的网络库(network library)。
            关于odbc dsn connection string的更多信息，您可参见以下这些文章:
            http://www.able-consulting.com/mdac/ado/connection/odbc_dsn.htm
            http://support.microsoft.com/default.aspx?scid=kb;en-us;260249