vb+sqlserver,如何即時捕捉sqlserver的錯誤作出即時反應呢？

Question

vb+sqlserver,如果出現網絡異常或服務器故障時，如何捕捉sqlserver的錯誤作出即時反應呢？ 
舉例說，如果客戶端正在操作，服務器突然關掉，則客戶端會立即偵出錯誤並給出提示。
好急啊，麻煩各位高手給以指點!先謝過!!

Answer 1

Public Function Read(ByVal sSql As String) As Recordset
    On Error GoTo ErrHandle
    
    Set Read = New Recordset
    Read.Open sSql, DB, adOpenDynamic, adLockOptimistic
    Exit Function
ErrHandle:
    MsgBox "读取数据库记录失败！" & Err.Description
End Function
Public Sub Excute(ByVal sSql As String)
    On Error GoTo ErrHandle
    
    DB.Execute sSql
    
    Exit SubErrHandle:
    MsgBox "执行数据库操作失败！" & Err.Description
End Sub

Answer 2

各位高手，
我的意思是指定義一個全局性的變量，在程式運行期間一直捕捉Sqlserver的錯誤，如果產生錯誤則作出提示，不是等到去數據庫索取數據時才進行錯誤處理，該如何處理呢？不過還是對以上兩位高手給以的幫助深表謝意!

Answer 3

On Error GoTo XXX
:XXX
-_-好像记得什么地方说过尽量不让用goto语句来者-_-