Считать данные с листа xls - VB

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

Есть на севере файл xls, в нем есть листы с названием к примеру «Лист1», «Лист2» и т.д.
Вопрос: как считать данные (только чтение, без записи) с листа к примеру «Лист2», не втягивая весь файл и не открывая?
Что для этого необходимо?

Решение задачи: «Считать данные с листа xls»

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

                            <font color="blue">Sub</font> Проект()
<font color="blue">Dim</font> Рес, ResSQL, ПроектыВехи, f
<font color="blue">Dim</font> rs <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset

ResSQL = <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\projectsrv\sites\MS_ProjectServer_PublicDocuments\Shared Documents\01.XLS"</font> _
& <font color="teal">";Extended Properties=Excel 8.0"</font> <font color="00AA00">'Подключение есть</font>

<font color="00AA00">'ResSQL = <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\projectsrv\sites\MS_ProjectServer_PublicDocuments\Shared Documents\01.XLS"</font> _</font>
& <font color="teal">";User ID=firma\Alexandr;Password=pas;Extended Properties=Excel 8.0"</font> <font color="00AA00">'Нет подключения</font>

Рес = <font color="teal">"SELECT * FROM [RESERVED_DATA1$]"</font>

rs.<font color="blue">Open</font> Рес, ResSQL, adOpenStatic
<font color="blue">While</font> (<font color="blue">Not</font> rs.EOF)
ПроектыВехи = rs.GetString(adClipString)
<font color="blue">Wend</font>
rs.<font color="blue">Close</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        