ник: час
пробываем иначе
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "SQLOLEDB"
.CommandTimeout = 0
.Properties("User Id") = "sa"
.Properties("Password") = ""
.Properties("Data Source") = "\\2Q\SQLEXPRESS\2Q\Data\CLIENT.mdf"
.Properties("Persist Security Info") = True
.Open
.DefaultDatabase = "mg"
End With
|
Сервер не существует или доступ запрещён
Уже лучше
