Проблема такая: пишется клиентская программа с подключением к SQL - серверам (они к стати в разных доменах и вообще не в одном здании), коннект через OLEDB, все как обычно, но возникла проблема - на одном компе работает а на другом не хочет. Версии виндозы, офиса и прочей фигни не влияют - просто возникла ситуация при которой два компа подключенные к одному хабу работают по разному: один подключается к серверу, другой нет... Подключить второй комп удалось при использованиии SQL7.0/ClientNetworkUtiliti - после подключения там все заработало нормально. Но не ставить же каждому клиенту SQL?! Может кто знает в чем дело. И еще одно - такая же проблема возникает при подключении Сервака в нашем домене: одни видят другие нет ((((
Если кто сталкивался - помогите! Уже почти 2-е недели парюсь, ни че не понимаю!
Прошу прощения если не по адрессу - безвыходное положение, и за ранее всем откликнувшимся ОГромное СПАСИБО!

Не помогает, использую MDAC v.2.6 ((

В том то и дело, что нет ни какой ошибки - просто не подключается и все. Где выбирается протокол? Он у меня вообще ни где не выбирается - просто конекчусь и все. Иногда удачно, но не всегда. Про MDAC 2.7 слышал что он вообще сплошной глюк.
TO Dankov:
В том то и дело, что все пингуется! Мне хотелось попробовать твое предложение с реестром, но чейто я не смог найти ветку в реестре - она где там вообще должна хранится то? Допомогайте уж плз.!

Ну правда нету обшибки! При подключении просто прверяется статус коннекта. И он не всегда равен тому чему надо. А проверка на ошибку тоже стоит - но она молчит. Пробовали через ADOTEST - там сообщение типа server not found or access denied. Вот

Конекчусь я так:

For i = 1 To UBound(ArrServers, 1)
With servers_connect(i)
.Provider = "SQLOLEDB"
.Properties("dATA sOURCE").Value = ArrServers(i, 2)
.Properties("iNITIAL cATALOG").Value = ArrServers(i, 5)
.Properties("uSER id").Value = "boss_user"
.Properties("pASSWORD").Value = ArrServers(i, 4)
.Open
End With
ArrServers(i, 3) = servers_connect(i).State
If servers_connect(i).State <> 1 Then
MsgBox "К серверу " & ArrServers(i, 1) & " не подключились"
End If
Next i

Вот - скажиете куда тут надо вставить TCP/IP протокл (т.к. именно так сервера и работают)
Спасибо за точто откликнулись!

2 Vladimir: Все файлы на месте, но при чем тут они?
Еще раз прошу обратить внимание на тот факт, что сервера, к которым происходит подключение находятся фиг знает где, но они точно работают!