Entaum faça uma consulta mais detalhanda usando apenas os campos q vc vai usar. ai vc naum precisa fazer If para mostrar os campos:
ex:
ao invés de DtList.RecordSource = (" SELECT * FROM TABELA") que seleciona todos os campos faça:
DtList.RecordSource = (" SELECT Tabela.campo, Tabela.campo, Tabela.campo" & _
" FROM TABELA" & _
" WHERE Tabela.campo = '"&&"'") se precisar usar se naum acebe a instrução na linha acima com ") ao invés de "&_
ai vc pode mostrar só os campos q consultou utilizando os comando q eu mandei antes.
Se eu entendi vc quer isso.