[Resolvido]Erro no RecordSource do Formulário

Bom dia,

Oque poderia estar não-conforme?

Dim x As String

x = "SELECT TAB_HISTORICO.TREINAMENTO, Count(TAB_HISTORICO.COLABORADOR) AS ContarDeCOLABORADOR FROM TAB_HISTORICO GROUP BY TAB_HISTORICO.TREINAMENTO, TAB_HISTORICO.DATA_TREINAMENTO, IIf(IsNull([DATA_TREINAMENTO]) Or [DATA_TREINAMENTO]<=Date(),"Pendente","Realizado") HAVING (((IIf(IsNull([DATA_TREINAMENTO]) Or [DATA_TREINAMENTO]<=Date(),"Pendente","Realizado"))="Pendente"));"

Form.RecordSource = x

Erro: Era esperado: Fim da intrução

Bom dia

Não escreva tudo em maiúsculas, fica muito pesado e dificil entender caso sejam palavras concatenadas
Sobre a dúvida
Não pode agrupar com
IIf(IsNull([DATA_TREINAMENTO]) Or [DATA_TREINAMENTO]<=Date(),"Pendente","Realizado")
que agrupamento quer?

Bom dia Neves,

Fiz os agrupamentos necessários numa consulta, porém continua a acusar o erro com o "Pendente".


x = "SELECT con_historico.treinamento,con_historico.ContarDeColaborador, con_historico.datatreinamento, con_historico.status FROM con_historico WHERE (((con_historico.status)="Pendente"));"

x = "SELECT treinamento,ContarDeColaborador, datatreinamento, status FROM con_historico WHERE status='Pendente';"

Bom dia,

Muito obrigado, resolvido.

O erro era somente por conta de estar com aspas duplas?