Sub ADO_SQL1()
'Заполнение списка подразделений из Базы кадров
' создаем объект соединения
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

On Error GoTo ErrHandler
' открываем соединение
cnn.Open Sheets("Правила работы с Табелем").Range("СтрокаКоннектаКБазе").Value
'"Driver={SQL Server};Server=192.168.1.0;APP=T-12;Uid=T12;Pwd=masterkey;Database=lgipkadry;Network=DBMSSOCN;Address=192.168.1.0,1433"

'Открываем набор записей
rs.ActiveConnection = cnn
rs.Source = "SELECT NAME, SOKR, ID From Otdely"
rs.Open

If rs.EOF Then
   MsgBox "Файл не содержит записей !"
Else
    rs.MoveFirst
    Sheets("Правила работы с Табелем").Range("AS" &  19 ).CopyFromRecordset rs
End If

' Закрываем набор
rs.Close
Set rs = Nothing

' Закрываем соединение
cnn.Close

Exit Sub

ErrHandler:
    MsgBox "Ошибка подключения к списку подразделений!"

End Sub