Источник данных подчиненной формы

Здравствуйте, скажите как вставить свой запрос строку "Источник данных" по нажатию кнопки?
Форма является подчиненной

noobs,
"Источник записей" по-английски "RecordSource"
На событие Нажатие_кнопки (Click) пишите:

Me.RecordSource="ВашаИнструкцияSQL" 

Вдогонку:если кнопка не в подчиненной форме,то вместо "Me"-ссылка на форму

Спасибо, еще такой вопрос а можно как то сделать чтобы в подчиненной форме отобразилось только те столбцы которые я указал а остальных не было.
В общем чтобы не было полей вроде таких

Скрин из Excel но думаю понятно про что я)

noobs,
не понял при чем здесь Ёксель, отображаются те столбцы которые перечислены в SELECTе.

Я вот про это говорил, скрин из Excel привел потому что не мог дома сделать не что похожее.
Сейчас в форму передан запрос, как убрать ненужные поля из отображения?

 Select kod_25 From tbl1

noobs,

Есть несколько вариантов.
1) Передать Null типа так:

 Select Null AS [year], kod_25 From tbl1

2) Я так понимаю у Вас табличная форма. Тогда можно скрыть столбец.

TextBox0.ColumnWidth = 0

1 вариант наверное отпадает, т.к. я хочу сделать что-то вроде фильтров где пользователь выбирает все поля какие он хочет видеть в таблице и по кнопке "Ок" кидается запрос в подчиненную форму.
2 вариант не знаю, возможен ли он, потому что столбцов всего 40 и просто нереально предугадать какие поля выберет пользователь и какие скрыть при этом

noobs
1 вариант наверное отпадает, т.к. я хочу сделать что-то вроде фильтров где пользователь выбирает все поля какие он хочет видеть в таблице и по кнопке "Ок" кидается запрос в подчиненную форму. 2 вариант не знаю, возможен ли он, потому что столбцов всего 40 и просто нереально предугадать какие поля выберет пользователь и какие скрыть при этом

предугадать, конечно, было бы круче.

но можно не гадать, ибо у вас есть:
1) коллекция контролов формы (Me.Controls)
2) коллекция полей источника записей формы (Me.Recordset.Fields)

поэтому сразу после подстановки вашего RecordSource
можно проверить все контролы в Me.Controls на предмет наличия их ControlSource среди полей Me.Recordset.Fields
и всем ненайденным делать то что вам выше предлагают (ColumnWidth = 0)