Sub Poisk()
Dim rs As Object, oconn As Object
Dim base As String, server As String, table As String, fieldtosearch As String, serchingByField As String

server = "server-app001"
base = "Base001"
table = "table01"
fieldtosearch = "DELO_PRIEMA"
serchingByField = "FileName"

Set oconn = CreateObject("ADODB.Connection")
oconn.ConnectionString = "Provider=sqloledb;Data Source=" & server & ";Initial Catalog=" & base & ";Integrated Security=SSPI"
MsgBox oconn.ConnectionString
oconn.Open
Set rs = CreateObject("ADODB.RecordSet")
rs.activeconnection = cn
rs.Open "SELECT " & fieldtosearch & " FROM " & base & ".." & table & " WHERE " & serchingByField & " = '" & ActiveCell.Value & "'"
rs.MoveFirst
MsgBox rs.fields(0).Value
'rs.MoveNext
Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub