Link table từ SQL Server

[nghikt2]

Trước đây bác hai2hai hướng dẫn em cách link này. Nhưng hôm nay cho em hỏi thêm : Trường hợp thông tin kết nối không đúng thì phải chờ rất lâu ( khoảng > 1 phút) mới show Msgbox. Em muốn rút ngắn thời gian này còn khoảng 15 giây nếu không kết nối được thì phải show Msgbox liền có được không ? Xin được bác hướng dẫn tiếp.

Public Function AttachTables(strServer, strDatabase, strUserName, strPassword)
Dim tdTemp As TableDef

On Error GoTo XULY

Set cat = New ADOX.Catalog
With cat
.ActiveConnection = "Provider=sqloledb;Data Source=" & strServer & ";Initial Catalog=" & strDatabase & ";User Id=" & strUserName & ";Password=" & strPassword & ";"
For Each tbl In cat.Tables

If ExistTable(tbl.Name) = True Then
CurrentDb.TableDefs.Delete (tbl.Name)
End If

If Left(tbl.Name, 3) = "tbl" Or Left(tbl.Name, 3) = "tmp" Then
Set tdTemp = CurrentDb.CreateTableDef(tbl.Name)
tdTemp.SourceTableName = tbl.Name
tdTemp.Connect = "ODBC;DRIVER={SQL Server};SERVER=" & strServer & ";DATABASE=" & strDatabase & ";uid=" & strUserName & ";pwd=" & strPassword & ";"
CurrentDb.TableDefs.Append tdTemp
End If
Next tbl
End With
CurrentDb.TableDefs.Refresh
DoCmd.Close acForm, "frmConnect"
Exit Function
XULY:
If MsgBox("Try again !", vbInformation + vbYesNo + vbDefaultButton1, "Thong tin ket noi khong dung") = vbNo Then
DoCmd.Quit acQuitSaveNone
Exit Function
Else
Exit Function
End If
End Function