Это работает в Excel 2003. Все дело в строке соединения (в коде - значение переменной cns). Для Excel 2007 нужна (желательна) другая строка - та, которая которая закомментирована.
Я привел этот код (к нему я пришел постепенно) для того, чтобы показать Вам направление в сторону обобщения.
Безусловно, он не является примером с большой буквы, но для меня очень полезен.

Объявите, если боитесь Shocker.Pro'а: Dim sqltext as String. Ну, а если вставили Option Explicit, то обязательно!

А библиотеку подключили? Microsoft ActiveX Data Object 2.x Library.

Ищите и обрящете.

...если вставили Option Explicit, то обязательно!

Dim ws As Worksheet
Dim i as Integer

sqltext = "SELECT [Поле1],[Поле3] FROM [ Лист1$A1:C6]"
Уберите пробел после первой скобки (случайно вставил).

sqltext = "SELECT [Поле1],[Поле3] FROM [Лист1$A1:C6]"
Можно просто sqltext = "SELECT [Поле1],[Поле3] FROM [Лист1$]"
Я хотел показать, что можно специфицировать диапазон данных на листе.
И да, пора уже таблицу. Имена полей, конечно, будут Ваши. Соответственно измените текст запроса.
Следующий этап - писать текст запроса в Textbox'е на форме.
Следующий этап - и строку соединения выбирать из ComboBo'а на форме.

Забыл добавить: символы [ и ] необязательны (во всяком случае, с английскими именами полей).
Если select name As Наименование детали, то ошибка. Нужно [Наименование детали].

Так у Вас получилось выбрать данные и поместить их на лист?
sqltext=Trim(TextBox1.Text)
cns=Trim(ComboBox1.Text)

Вы можете обращаться с запросами не только к таблицам Excel, но и, например, MS SQL Server. Значит, нужно иметь возможность
изменять строку соединения, не залезая каждый раз в код.
Можно их (строки) хранить в файле, например, Строки.txt и загружать их в ComboBox в начале работы.
В общем, я Вам завидую - столько нового впереди!