O que eu acho que você quer é mostrar o valor no campo se o valor corresponder à sua lista de testes. Neste caso eu usaria a função IIF. O primeiro parâmetro é um teste lógico no qual você precisa determinar se há uma correspondência. Se estiver, exiba o valor de outra forma, exiba um espaço em branco.
No QBE, você poderia substituir Pest_Com1 pelo abaixo, onde o uso de tbl é o nome da tabela.
Pest_COM1: IIF (tbl.Pest_COM1 LIKE "*rat*" OR tbl.Pest_COM1 LIKE "*mouse*" OR tbl.Pest_COM1 LIKE "*stoat*" OR tbl.Pest_COM1 LIKE "*possum*",tbl.Pest_COM1, "")
Você pode repetir isso apenas para as colunas adicionais. Para algo assim, eu geralmente o colo no bloco de notas e faço uma substituição no nome do campo, depois copio de volta para a consulta, em vez de editar manualmente cada caso.
Se você deseja apenas incluir os campos relevantes, você terá que construir a string SQL no código vba. Você precisará determinar se há valores em cada campo para determinar se deseja incluir. Você pode usar um IIF similar para acima para isso, mas substituir a parte verdadeira (segundo parâmetro) por 1 e parte falsa (terceiro parâmetro) por 0. Em seguida, soma. Se o campo tiver um valor > 0, você deseja incluir o campo. Essa é apenas a parte da consulta.