登錄時自動測試刷新ODBC數據源（sql server)避免彈出輸入用戶名和密碼

使用Odbc數據源鏈接到Sql server數據庫時，如果用戶名和密碼沒有保存在數據表的話，則打開鏈接表時第一次總是會提示要輸入Sql server用戶名和密碼

可以使用下面的函數，將用戶名和密碼放在代碼中（或從加密的數據表中讀取用戶名和密碼），這樣就避免別人知道你的數據庫用戶名和密碼。

Function gt_TestOdbc() As Boolean
On Error GoTo err_c
DoCmd.SetWarnings False

Dim Response As Integer
Dim connstr As String, mydb As DAO.Database
      connstr = "ODBC;" & _
                "DRIVER=SQL Server;" & _
                "SERVER=127.0.0.1,7788;" & _
                "DATABASE=wzk;" & _
                "UID=sa;" & _
                "PWD=admin"

Set mydb = DBEngine.Workspaces(0).OpenDatabase("", False, False, connstr)

gt_TestOdbc = True
Exit Function
err_c:

gt_TestOdbc = False
MsgBox "數據庫用戶,口令錯誤,重新登錄!", , "文具"
Exit Function
End Function

但如果用戶名 密碼不對，或Sql server服務器無法連接時，則會彈出系統(tǒng)的要求輸入數據庫用戶名和密碼的窗口，
1.刷新鏈接這個系統(tǒng)窗口無法禁止的
2.在使用之先先判斷一個表是否可連接 ,或先判斷服務器IP是否可PING通.如果不通,基本上就判斷連不到,采取措施
3. 也可在創(chuàng)建之前先用ADO試連接，能連接成功，直接創(chuàng)建鏈接表，否則，捕獲ado連接錯誤信息，判斷是否服務器不通，并直接提示連接不通，退出