Ошибка подключения

[Kot070]

Добрый день.
Подскажите почему не работает и как исправить ситуацию?

Dim cn As ADODB.Connection
Dim conn As String
conn = "Provider=SQLOLEDB.1;Password=tst;Persist Security Info=True;User ID=spp_oris;Initial Catalog=tst;Data Source=tst-38"
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = conn
cn.Open

Set db = CurrentDb()
Set rs = db.OpenRecordset(" select dbo_UPR_1214.kod_upr,dbo_Dogovor_25.nDog_IN, dbo_StrEd_18.nStrEd FROM dbo_Dogovor_25,dbo_UPR_1214, dbo_StrEd_18,[Excel 12.0 xml;HDR=Yes;IMEX=1;DATABASE=" & Me.Form.l1.Value & "].[Лист1$] AS Ex Where dbo_Dogovor_25.nDog_IN =Ex.[№ договора САП (25 справочник)] and dbo_UPR_1214.kod_upr=Ex.[Код управления] and dbo_StrEd_18.nStrEd=Ex.[Код Контрагента (18 справочник)] and dbo_Dogovor_25.name=Ex.[Наименование услуги] ")
'Set rs = cn.Execute("select dbo.UPR_1214.kod_upr,dbo.Dogovor_25.nDog_IN, dbo.StrEd_18.nStrEd FROM dbo.Dogovor_25,dbo.UPR_1214, dbo.StrEd_18,[Excel 12.0 xml;HDR=Yes;IMEX=1;DATABASE=" & Me.Form.l1.Value & "].[Лист1$] AS Ex Where dbo.Dogovor_25.nDog_IN =Ex.[№ договора САП (25 справочник)] and dbo.UPR_1214.kod_upr=Ex.[Код управления] and dbo.StrEd_18.nStrEd=Ex.[Код Контрагента (18 справочник)] and dbo.Dogovor_25.name=Ex.[Наименование услуги] ")
If rs.EOF And rs.BOF Then  'Отсутствие данных
MsgBox "Не все данные найдены, проверьте правильность файла!"
rs.Close
Else
идет вставка

После подключения должны быть доступны таблицы которые используются в запросе но этого не происходит, выдает сообщение соединение не выполнено затем что нужно самому войти на сервер после отмены показывает ошибку run-time.
Подключение точно создается если добавить выдается сообщение live, при этом если изменить что-нибудь в conn то выдает dead

On Error Resume Next
             cn.Open
             Err_num& = Err.Number ' номер ошибки
             On Error GoTo 0 ' восст. нормальной обработки  ошибок
             If Err_num& = 0 Then   ' БД доступна
                MsgBox "live"
             Else                           'БД недоступна
                MsgBox "dead"
               End If

[Андрэич]

http://www.connectionstrings.com/