[Resolvido]Colocar o Codigo SQL no VBA do Access

Pessoal boa noite, quero colocar o codivgo abaixo que vem de uma consulta no VBA, pois ao clicar em um botão ele ira atualizar uma caixa de listagem com os dados filtrados.tem como fazer isso?

obrigado.

SELECT Clientes.Identificação, Clientes.Empresa, Clientes.CNPJ, Clientes.Cidade, Clientes.[Telefone Comercial] AS Telefone, Clientes.Faturamento, Clientes.Resultado, Clientes.CNAESN AS CNAE, Clientes.Fonte, Clientes.Sales, Clientes.DtContatoProposto AS [Dta Contato]
FROM Clientes
WHERE (((Clientes.Empresa) Like [Forms]![PesquisaProspects].[empresa] & "*") AND ((Clientes.Cidade) Like [Forms]![PesquisaProspects].[cidade] & "*") AND ((Clientes.Resultado) Like [Forms]![PesquisaProspects].[txt_nome] & "Abaixo do Target" Or (Clientes.Resultado)="Empresa Filial" Or (Clientes.Resultado)="Empresa Fora da Área de Atuação") AND ((Clientes.CNAESN) Like [Forms]![PesquisaProspects].[CNAE] & "*") AND ((Clientes.Fonte) Like [Forms]![PesquisaProspects].[FONTE] & "*") AND ((Clientes.Sales) Like [Forms]![PesquisaProspects].[sales] & "*"))
ORDER BY Clientes.Empresa;

Boa noite, lourival, e bem-vindo ao fórum

Utilize LstLista.Rowsource="SELECT Identificação, Empresa, CNPJ, Cidade, [Telefone Comercial] AS Telefone, Faturamento, Resultado, CNAESN AS CNAE, Fonte, Sales, DtContatoProposto AS [Dta Contato]
FROM Clientes
WHERE (Empresa Like [Forms]![PesquisaProspects].[empresa] & '*' AND Cidade Like [Forms]![PesquisaProspects].[cidade] & '*' AND (Resultado Like [Forms]![PesquisaProspects].[txt_nome] & 'Abaixo do Target' Or Resultado='Empresa Filial' Or Resultado='Empresa Fora da Área de Atuação' AND (CNAESN Like [Forms]![PesquisaProspects].[CNAE] & '*') AND Fonte Like [Forms]![PesquisaProspects].[FONTE] & '*' AND Sales Like [Forms]![PesquisaProspects].[sales] & '*')
ORDER BY Clientes.Empresa;

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.