Dim sCon$, cn As Object, rs As Object
    Dim finalRow&, lCount&, sSQL$
    Set cn = CreateObject("ADODB.Connection")
    cn.Mode = adModeReadWrite
        sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName _
             & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"


sSQL = "select * from ( " & _
"select  distinct [Номер приказа], " & _
  "stuff(( select ', ' + CAST( [ФИО]  AS VARCHAR) " & _
    " FROM [КС$B3:P12] " & _     ' [КС$B3:P12] адрес таблицы
    " where [Номер приказа] = t.[№ Приказа] " & _
   " order by [ФИО] " & _
   " for XML path('')" & _
   " ),1,1,'') lst " & _
" from [КС$B3:P12] t) as wwwo "

 Set rs = cn.Execute(sSQL) ' Ошибку выдает здесь
    lCount = UBound(rs.GetRows, 2) + 3

    With Лист1
        .Cells(7, 2).CopyFromRecordset cn.Execute(sSQL)
        finalRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Range(.Cells(lCount, 1), .Cells(finalRow, 1)).Clear
    End With
    
    

sSQL = "SELECT * FROM [КС$B3:O12] " & _   [КС$B3:P12]
          "WHERE [Номер приказа]=1001 "