function relink()
                dim db as database
                dim tbl as tabledef
                dim a as string
                dim b as string
                dim d as string
               
                a = sa'數(shù)據(jù)庫用戶
                b = abc'數(shù)據(jù)庫口令
                d = abcde'數(shù)據(jù)庫名稱
                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的解答說明：
            根據(jù)您的描述，我對您的問題解答如下：
            1. dsn=gnts 中g(shù)nts是系統(tǒng)dsn的文件名。
            2. uid是用戶名，并且它的值由變量a的值決定。pwd是密碼，并且它的值由變量b的值決定。
            3. wsid 是指工作站的id號 (workstation id)。變量d的值表示數(shù)據(jù)庫的名稱。 network=dbmssocn
            指tcp/ip所使用的網(wǎng)絡(luò)庫(network library)。
            關(guān)于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