Помогите прицепиться к SQL серверу из VBA for Excel

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

Подсказали мне тут на форуме по SQL процедуру, но она выдает ошибку. А я в VBA не силен. Помогите чем сможете...

Ошибка "Sub or Function not defined" на строке

Что не так ?

Решение задачи: «Помогите прицепиться к SQL серверу из VBA for Excel»

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

                            <br>public CON  <font color="blue">as</font> ADODB.Connection
<br>Public Sub OpenConnection   
<br>  <font color="blue">Set</font> CON = Nothing
<br>  <font color="blue">Set</font> CON = New ADODB.Connection
<br>  <font color="blue">On</font> Error <font color="blue">GoTo</font> errH:
<br>  <font color="blue">With</font> CON 
<br>    .Provider = <b><font color="green">"SQLOLEDB"</font></b>
<br>    .ConnectionTimeout = <b><font color="darkblue">20</font></b>
<br>    .CommandTimeout = <b><font color="darkblue">20</font></b>
<br>    .Properties(<b><font color="green">"Data Source"</font></b>).Value =<b><font color="green">"(local)"</font></b> <font color="green">' SQL сервер
<br>    .Properties("Initial Catalog").Value = "DB" '</font> база данных
<br>    .Properties(<b><font color="green">"User ID"</font></b>).Value = <b><font color="green">"user"</font></b> <font color="green">' ваш логин
<br>    .Properties("Password").Value = "password" '</font> ваш пароль
<br>    .<font color="blue">Open</font>
<br>  <font color="blue">End</font> <font color="blue">With</font>
<br>  Exit Function
<br>errH:
<br>MsgBox <b><font color="green">"Error"</font></b> & Err.Description
<br><font color="blue">end</font> sub
<br>
                        