Select для Excel - VB

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

Добрый день!
Столкнулся с такой проблемой.Делаю выборку из файла Excel
Set conn = CreateObject("ADODB.Connection")
conn.Open "DBQ=" + НадписьПутьРезультат.Caption + "; DRIVER={Microsoft Excel Driver (*.xls)};"
Set rs = conn.Execute("Select * from [Лист1$]")
"Select * from [Лист1$]" работает,
а по наименованим столбцов нет "Select [Бренд] from [Лист1$]"
Проблема в том, что названия столбцов на русском языке? или он не понимает у Екселя, что первая строка - это название столбцов?
Спасибо.

Решение задачи: «Select для Excel»

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

                            <font color="blue">Sub</font> dd()
<font color="blue">Dim</font> Conn <font color="blue">As</font> ADODB.Connection, rs <font color="blue">As</font> ADODB.Recordset
<font color="blue">Dim</font> ConnectionString <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Set</font> Conn = CreateObject(<font color="teal">"ADODB.Connection"</font>)
ConnectionString = <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\данные 2009.xls;Mode=Share Deny None;Extended 
Properties="</font><font color="teal">"Excel 8.0;HDR=Yes;IMEX=1"</font><font color="teal">";Persist Security Info=False;"</font>
Conn.CursorLocation = adUseClient
Conn.<font color="blue">Open</font> ConnectionString

<font color="blue">Set</font> rs = Conn.Execute(<font color="teal">"Select [Регион] from [Реализация$]"</font>)
rs.MoveLast
Debug.<font color="blue">Print</font> rs.RecordCount
<font color="blue">Set</font> Conn = <font color="blue">Nothing</font>
<font color="blue">Set</font> rs = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        