Public Sub Fill_Fio()

 ' создаем объект соединения 
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

 ' открываем соединение 
cnn.Open "Driver={SQL Server};Server=ServerNT;APP=T-12;Uid=name;Pwd=password;Database=kadry"

 'Открываем набор записей 
rs.ActiveConnection = cnn
rs.Source = "SELECT FIO + CHAR(10) + DOLGN, TABN, '' AS a, '' as b, OKLAD From SotrCurrent Where IDPODR = '" & Sheets("Лист1").Range("L" &  24 ).Value & "' ORDER BY ORDERID"
rs.Open

If rs.EOF Then
   MsgBox "Записей нет!"
Else
    rs.MoveFirst
    Sheets("Лист1").Range("A" &  1 ).CopyFromRecordset rs
End If

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

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

End Sub