Boa tarde!

Gostaria de saber como adapto este select a um script VBA. A quem responder, obrigado.

SELECT CadastroTreinador.Nome, CadastroTreinador.DataNascimento, CadastroTreinador.Endereco, CadastroTreinador.TelefoneFixo, CadastroTreinador.TelefoneCelular, CadastroTreinador.CPF, CadastroTreinador.PIS, CadastroTreinador.Disponibilidade, CadastroTreinador.AreaOrigem, FormacaoAcademicaTreinador.FormacaoAcademica, SkillAreaOrigemTreinador.SkillAreaOrigem, SkillAtualTreinador.SkillAtual, TreinamentosDesenvolvimentoParticipou.TreinDesenParticipou
FROM (((CadastroTreinador INNER JOIN FormacaoAcademicaTreinador ON CadastroTreinador.idTreinador = FormacaoAcademicaTreinador.idTreinador) INNER JOIN SkillAreaOrigemTreinador ON CadastroTreinador.idTreinador = SkillAreaOrigemTreinador.idTreinador) INNER JOIN SkillAtualTreinador ON CadastroTreinador.idTreinador = SkillAtualTreinador.idTreinador) INNER JOIN TreinamentosDesenvolvimentoParticipou ON CadastroTreinador.idTreinador = TreinamentosDesenvolvimentoParticipou.idTreinador
WHERE (((CadastroTreinador.Disponibilidade)='P8'));