ConnectionString

Добрый день, подскажите как правильно сделать подключению к серверу?
Делаю вот так

Dim cn As ADODB.Connection
Dim conn As String
conn = "Provider=SQLOLEDB.1;Password=oris;Persist Security Info=True;User ID=spp_oris;Initial Catalog=NCI_RN;Data Source=ung-38"
Set cn = New ADODB.Connection
cn.Open conn

но все равно выходит окно ошибки

Библиотека MS ActiveX Data Objects 2.8 library подключена

noobs,

With cn
.ConnectionString = conn
.Open

End With

Спасибо большое, так все работает.
Чем запись с with отличается от моей? Суть ведь одна и та же.
Как понять когда нужно использовать with?

noobs
Спасибо большое, так все работает. Чем запись с with отличается от моей? Суть ведь одна и та же. Как понять когда нужно использовать with?

Да, почти ничем. В блоке with не прописывается весь путь объекта только и всего. Удобно, когда, например, обращаещься к другой открытой форме. Я просто скопировал кусок кода

Почему то перестало работать подключение, снова появляются те же. debug показывает такую картину. Как исправить?

noobs,

И что мы должны здесь увидеть и понять? Спроси статус соединения в дебаггере

как спросить статус соединения?

Добавил проверку подключения

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

подключение live но запрос не выполняется

upr = " "
upr.RowSource = "SELECT dbo_KUR.kod_upr FROM dbo_KUR Where dbo_KUR.name_kur='" & Me.users & "'"
upr.Requery

upr - это выпадающий список в который помещается результат запроса со всеми кодами.