Коннект к Oracle через ADO - VB

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

можно ли как-то сконнектиться с Oracle используя ADO и при этом чтоб все данные о пароле (а лучше ещё и о логине) брались из ODBC-источника (как через DAO - более менее понятно)? Если не сложно приведите пример строки подключения

Решение задачи: «Коннект к Oracle через ADO»

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

                            <font color="blue">Dim</font> conn <font color="blue">As</font> <font color="blue">New</font> ADODB.Connection
<font color="blue">Dim</font> rst <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset

<font color="blue">With</font> conn
   .CursorLocation = adUseClient
   .Provider = <font color="teal">"MSDAORA"</font>
   .Properties(<font color="teal">"Data Source"</font>).Value = <font color="teal">"[Database]"</font>
   .Properties(<font color="teal">"User ID"</font>).Value = <font color="teal">"scott"</font>
   .Properties(<font color="teal">"Password"</font>).Value = <font color="teal">"tiger"</font>
   .<font color="blue">Open</font>
<font color="blue">End</font> <font color="blue">With</font>

rst.<font color="blue">Open</font> <font color="teal">"Select * From EMP"</font>, conn, adOpenDynamic, adLockOptimistic

                        