Adodb.connection проверка соединения - VB

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

подскажите пожалуйста
Приложение конесктится к серверу и записывает данные в автоматическом режиме.Всё хорошо,но сервер раз в день закрывает соединение и приложение перестаёт писать.Как организовать при ошибке записи пересоединение к серверу и вновь начать запись?

conn  ADODB.Connection
 rst   ADODB.Recordset

  Form_Load()
 conn =  ADODB.Connection
 conn

   .CursorLocation = adUseClient
   .Provider = 
   
   .Properties().Value = 
   .Properties().Value = 
   .Properties().Value = 
   .
 
rst.LockType = adLockOptimistic
rst.Source = 
 rst.ActiveConnection = conn
rst.

  tobase(m_str  )
   
rst.AddNew
.
.
.
rst.update

:
 strErr  
strErr =  & Err.Number &  & Err.Description & vbCrLf
strErr = strErr &  & Err.Source & vbCrLf
filenum1 = FreeFile
 App.Path &   Append  filenum1
 #filenum1, strErr
 #filenum1

Где и как вставить проверку соединения с сервером и как переконекчиваться?

Решение задачи: «Adodb.connection проверка соединения»

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

                            <font color="blue">Public</font> <font color="blue">Function</font> CheckConnect(<font color="blue">ByRef</font> cn <font color="blue">as</font> ADODB.Connection) <font color="blue">as</font> <font color="blue">Boolean</font>
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> err_debug

<font color="blue">If</font> <font color="blue">Not</font> cn <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">then</font>
  <font color="blue">If</font> cn.State = adStateOpen <font color="blue">Then</font>
    cn.Execute <font color="teal">"SELECT SYSDATE FROM DUAL"</font>, False, adCmdText
    CheckConnect = True
  <font color="blue">End</font> <font color="blue">if</font>
<font color="blue">end</font> <font color="blue">if</font>
lb_out:
   <font color="blue">Exit</font> <font color="blue">Sub</font>

err_debug:
   LogError <font color="teal">"CheckConnect"</font>
   <font color="blue">Resume</font> lb_out
<font color="blue">End</font> <font color="blue">Function</font>

<font color="blue">Private</font> <font color="blue">Sub</font> tobase(m_str <font color="blue">As</font> <font color="blue">String</font>)

<font color="blue">If</font> <font color="blue">Not</font> CheckConnect(conn) <font color="blue">Then</font>
   <font color="00AA00">'надо делать реконнект</font>
   <font color="blue">Exit</font> <font color="blue">Sub</font>
<font color="blue">End</font> <font color="blue">if</font>
...
                        