Ексел: как запихнуть это в commandtext ADODB.Command? - VB

Формулировка задачи:

Надо прочитать некую инфу из SQL Server в лист Ексел. Читаю по строкам объекта ADO.Recordset. Проблема с самим запросом. Пишу его в свойство commandtext объекта ADODB.command. Если написать простое предложение SELECT, работает. Но надо получить резалтсет вот такого запроса, где создается врем. таблица: - а VBA ругается на синтаксис; похоже знаки '#' надо как-то выделять кавычками, посоветуйте.

Решение задачи: «Ексел: как запихнуть это в commandtext ADODB.Command?»

textual
                            Листинг программы 
                        

                            <font color="blue">Option</font> <font color="blue">Explicit</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">Dim</font> s <font color="blue">As</font> <font color="blue">String</font>
s = <font color="teal">"declare @hotelname as varchar(1000)"</font> _
     & <font color="teal">"declare @sposinc AS int"</font> _
     & <font color="teal">"create table #nomera_spos ("</font> _
     & <font color="teal">"sposinc int, "</font> _
     & <font color="teal">"sposnote varchar(128), "</font> _
     & <font color="teal">"sposnote2 varchar(128), "</font> _
     & <font color="teal">"hotelname varchar (1000)) "</font> _
     & <font color="teal">"INSERT INTO #nomera_spos (sposinc, sposnote, sposnote2, hotelname) "</font> _
     & <font color="teal">"SELECT DISTINCT dbo.spos.inc, и т.д."</font>
Debug.<font color="blue">Print</font> s
<font color="blue">End</font> <font color="blue">Sub</font>

                        