Попробуй так....
Private Sub Form_Load()
Dim strServer As String
Dim strBase As String
Open "D:\SQLProba\Server.ini" For Input As #1 ' Open file.
Line Input #1, strServer
Line Input #1, strBase
Close #1
'On Error GoTo ErrorProcessing
Set cnADO = New ADODB.Connection
cnADO.ConnectionTimeout = 25
cnADO.Provider = "sqloledb"
cnADO.Properties("Data Source").Value = strServer
cnADO.Properties("Initial Catalog").Value = strBase
cnADO.Properties("Integrated Security").Value = "SSPI"
cnADO.CursorLocation = adUseClient
cnADO.Open
Set rsADO = New ADODB.Recordset
Set cmdADO = New ADODB.Command
cmdADO.ActiveConnection = cnADO
'ErrorProcessing:
MsgBox "Íå óäàëîñü ïîäêëþ÷èòñÿ ê SQL Server." & vbCrLf & _
"Îáðàòèòåñü ê àäìèíèñòðàòîðó ñèñòåìû.", vbCritical, App.EXEName
End Sub