ADODB.Connection не работает модуль - VB

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

Добрый день, господа.
У меня встала задача написать небольшую прогу на VB под ексель.
Суть проста: смотрим на СКЛ сервер с логином и паролем и считываем в ексель файлик данные о базах - размеры, названия файлов, пути, репликации, какие куда, какие базы когда и как бакапятся. Так как СКЛ серверов в сети видимо-невидимо - более 30 шт, это только то, что мне ведомо, потом будет больше ... Программеры сами репликации делают, настраивают, нашу службу в известность не ставя, вот и пришла такая мысль. С подобным - из VB обращаться в СКЛ не пробовал. Понял, что надо через ADODB обращаться.
Написал запрос на кнопку, а оно ругается на первую строку - говорит не знаю что это ...
(Запрос с MSDN)
Dim con As New ADODB.Connection
con.ConnectionString = "Provider=SQLNCLI10;" _
& "Server=(****);" _
& "Database=****;" _
& "Integrated Security=SSPI;" _
& "DataTypeCompatibility=80;" _
& "MARS Connection=True;"
con.Open
Я чётко понял, что что-то не прописал, не проставил ...
Вопрос что именно?
Помогите, если окто знает что надо делать ...
Исходные данные:
Офис 2003 русский, но VB английский
СКЛ 2000

Решение задачи: «ADODB.Connection не работает модуль»

textual
                            Листинг программы 
                        
                            Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=%DBNAME%;
Network Address=%IP%;Network Library=DBMSSOCN;uid=*****;pwd=******