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

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

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