Onde estou errando:
StrSql = "PARAMETERS [Forms]![ProverEscala]![txtini] DateTime, [Forms]![ProverEscala]![txtter] DateTime; TRANSFORM First(QryHorario.Equipe) AS PrimeiroDeEquipe"
StrSql = StrSql & "SELECT QryHorario.CodHorario FROM QryHorario"
StrSql = StrSql & "WHERE ((" & Format([Data], "Short Date") & ") Between [Forms]![ProverEscala]![txtini] And [Forms]![ProverEscala]![txtter]))"
StrSql = StrSql & "GROUP BY QryHorario.CodHorario PIVOT" & Format([Data], "Short Date") & ";"


Wagner

Veja se isto resolve:
Você tem que deixar um espaço para concatenar as linhas da sua string SQL assim:
StrSql = StrSql & " SELECT QryHorario.CodHorario FROM QryHorario"
StrSql = StrSql & " WHERE ((" & Format([Data], "Short Date") & ") Between

Se vc não fizer isto na montagem vai ficar assim e dá erro:
"Select * From TabelaWHERE x=1GROUP BY"
Certo assim:
"Select * From Tabela WHERE x=1 GROUP BY"

Obrigado amigo Carlos! Resolveu meu problema.

Atenciosamente,
Wagner