ADODB.Connection ODBC - VB

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

Подскажите может кто делал?
через DSN работаю с удаленной машиной
Set ADcon = New ADODB.Connection
ADcon.ConnectionTimeout = 15
ADcon.CommandTimeout = 15
StrCon = "DSN=server13"
ADcon.Open StrCon
если источник данных "DSN=server13" не найден то на строке ADcon.Open StrCon выдаст соответствующую ошибку драйвер ODBC. как можно его обработать на уровне программы?
И кто то уже реализовывал обработку ошибки разрыва соединения. то есть если оно установилось, но оборвалось в процессе работы программы.

Решение задачи: «ADODB.Connection ODBC»

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

                            ...
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Goto</font> Err
ADcon.<font color="blue">Open</font> StrCon
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Goto</font> <font color="darkblue"><b>0</b></font>
...
<font color="blue">Exit</font> <font color="blue">Sub</font>

Err:
MsgBox Err.Description
<font color="blue">End</font> <font color="blue">Sub</font>
                        