Can you dynamically select the "show" box in a query?

[MSG56]

I've got a search form with several different fields that the user may use to narrow down their search. If they only decide to search on one field I don't want the subsequent query to display all of the fields, but just the ones selected by the user. In other words, how can I modify which “show” boxes are selected in the query when I hit the “search” button on my form?

[ranman256]

On the form, put a list box of the possible fields they can pick. (multi-pick)
scan the list, as you go, build the sql

dim sSql as string
dim qdf as querydef

for i = 0 to lstFlds.listcount - 1
    if lstFlds.item(i).selected then
    sSql = sSql & "[" & lstFlds.item(i) & "],"
next

'remove the last comma
sSql = left(sSql, len(sSql)-1)

sSql = "Select " & sSql & " from table"
set qdf = currentdb.querydefs("qsCustom")
qdf.sql = ssql
qdf.close

docmd.openquery qdf.name

set qdf = nothing

[MSG56]

Thanks for the quick response and advice. This is a lot for me to swallow. I'll have to take it a step at a time to figure it all out, but that will have to wait until at least Tue.