Схема соединения Named Pipes в ADODB ConnectionString - VB

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

Не могу найти параметр для ADODB.Connection объекта для соединения по выбранной схеме: Named Pipes или TCP/IP... а так по умолчанию он пытается соединиться по Named Pipes! А надо TCP/IP !
cn.Open "Driver={SQL Server};Server=190.168.1.1;database=code;User Id=Econt;pwd=123"
????????????????

Решение задачи: «Схема соединения Named Pipes в ADODB ConnectionString»

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

                            Private Sub InitDefConnectionProps()
<br>    m_Provider = <b><font color="green">"sqloledb"</font></b>
<br>    m_Server = <b><font color="green">"(local)"</font></b> <font color="green">''</font> или <b><font color="darkblue">192</font></b>.<b><font color="darkblue">168</font></b>.<b><font color="darkblue">0</font></b>.<b><font color="darkblue">1</font></b> или имя сервера
<br>    m_Database = <b><font color="green">"Stock"</font></b>
<br>    m_Login = <b><font color="green">"sa"</font></b>
<br>    m_Password = ""
<br><font color="blue">End</font> Sub
                        