ADODB обработка ошибок соединения - VB

Формулировка задачи:

подскажите пожалуйста, если кто делал. Вот кусок кода, как я сделал. Смысл в том, что если пропало соединение, он заходит в ADcon.Open StrCon и висит там минут 5. почему то выставление Timeout не помогает.
Dim StrCon As String
StrCon = "DSN=WORK"
Dim ADcon As New ADODB.Connection
Dim ADrec As New ADODB.Recordset
Dim SQLstr As String
On Error GoTo sf
SQLstr = "select dn from data order by dn"
Set ADcon = New ADODB.Connection
ADcon.ConnectionTimeout = 5
ADcon.Open StrCon
Set ADrec = New ADODB.Recordset
ADrec.CursorLocation = adUseClient
ADrec.Open SQLstr, ADcon
Exit Sub
sf:

Решение задачи: «ADODB обработка ошибок соединения»

textual
                            Листинг программы 
                        

                            objPing2 = Getobject(<font color="teal">"winmgmts:"</font>)
objPing = objPing2.ExecQuery(<font color="teal">"select * from Win32_PingStatus where address = "</font><font color="teal">""</font> & sAddress & <font color="teal">""</font><font color="teal">""</font>)
<font color="blue">For</font> <font color="blue">Each</font> objStatus <font color="blue">In</font> objPing
 <font color="blue">If</font> Isnull(objStatus.StatusCode) <font color="blue">Or</font> objStatus.StatusCode<><font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
  <font color="blue">return</font> False
 <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font> objStatus
<font color="blue">Return</font> True
                        