[Resolvido]Concatenar Instrução SQL

qd.SQL = "SELECT TP.Nome AS Tarefa, CC.Numero_CC, Itens_Diario.SequenciaItem, Itens_Diario.ValorTotal, Diarios.Num_Diario, Diarios.Data, Itens_Boletim.Numero, Itens_Boletim.Descricao, Itens_Boletim.Valor_Unitario, Contratada.Razao_Social, Contrato.Num_Contrato, Medicao.Num_Medicao, Medicao.Data_Inicial, Medicao.Data_Final, Medicao.Mes_Referencia, UnidadeMedida.Sigla, Equipe.Nome, Equipe.Numero_Equipe"
FROM UnidadeMedida INNER JOIN (((Contratada INNER JOIN (Contrato INNER JOIN (Boletim INNER JOIN (Itens_Boletim INNER JOIN (Diarios INNER JOIN (((Servicos AS S LEFT JOIN Tarefa_Projeto AS TP ON S.Cod_Tarefa=TP.Cod_Tarefa) LEFT JOIN Centro_Custo AS CC ON S.Cod_CC=CC.Cod_CC) INNER JOIN Itens_Diario ON S.Cod_Itens_Diario=Itens_Diario.Cod_Itens_Diario) ON Diarios.Cod_Diario=Itens_Diario.Cod_Diario) ON Itens_Boletim.Cod_ItemBoletim=Itens_Diario.Cod_ItemBoletim) ON Boletim.Cod_Boletim=Itens_Boletim.Cod_Boletim) ON Contrato.Cod_Contrato=Boletim.Cod_Contrato) ON Contratada.Cod_Contratada=Contrato.Cod_Contratada) INNER JOIN Medicao ON (Medicao.Cod_Medicao=Diarios.Cod_Medicao) AND (Boletim.Cod_Boletim=Medicao.Cod_Boletim)) INNER JOIN Equipe ON (Equipe.Cod_Equipe=Diarios.Cod_Equipe) AND (Boletim.Cod_Boletim=Equipe.Cod_Boletim)) ON UnidadeMedida.Cod_UnidadeMedida=Itens_Boletim.Cod_UnidadeMedida
WHERE Diarios.Num_Diario=PassaParametro('NumeroDiario')
ORDER BY Itens_Diario.SequenciaItem

TENHO essa instrução sql so que como não cabe tudo em uma linha só eu preciso concatenar as outras linhas mas não consegui.Tentei usar o & mas não deu certo.

Veja:

qd.SQL = "SELECT TP.Nome AS Tarefa, CC.Numero_CC, Itens_Diario.SequenciaItem, Itens_Diario.ValorTotal, " & _
"Diarios.Num_Diario, Diarios.Data, Itens_Boletim.Numero, Itens_Boletim.Descricao, Itens_Boletim.Valor_Unitario, " & _
"Contratada.Razao_Social, Contrato.Num_Contrato, Medicao.Num_Medicao, Medicao.Data_Inicial, Medicao.Data_Final, " & _
"Medicao.Mes_Referencia, UnidadeMedida.Sigla, Equipe.Nome, Equipe.Numero_Equipe " & _
"FROM UnidadeMedida INNER JOIN (((Contratada INNER JOIN (Contrato INNER JOIN " & _
"(Boletim INNER JOIN (Itens_Boletim INNER JOIN (Diarios INNER JOIN (((Servicos _
"AS S LEFT JOIN Tarefa_Projeto AS TP ON S.Cod_Tarefa=TP.Cod_Tarefa) LEFT JOIN " & _
"Centro_Custo AS CC ON S.Cod_CC=CC.Cod_CC) INNER JOIN Itens_Diario ON " & _
"S.Cod_Itens_Diario=Itens_Diario.Cod_Itens_Diario) ON " & _
"Diarios.Cod_Diario=Itens_Diario.Cod_Diario) ON " & _
"Itens_Boletim.Cod_ItemBoletim=Itens_Diario.Cod_ItemBoletim) ON " & _
"Boletim.Cod_Boletim=Itens_Boletim.Cod_Boletim) ON " & _
"Contrato.Cod_Contrato=Boletim.Cod_Contrato) ON " & _
"Contratada.Cod_Contratada=Contrato.Cod_Contratada) INNER JOIN Medicao ON " & _
"(Medicao.Cod_Medicao=Diarios.Cod_Medicao) AND " & _
"(Boletim.Cod_Boletim=Medicao.Cod_Boletim)) INNER JOIN Equipe ON " & _
"(Equipe.Cod_Equipe=Diarios.Cod_Equipe) AND " & _
"(Boletim.Cod_Boletim=Equipe.Cod_Boletim)) ON " & _
"UnidadeMedida.Cod_UnidadeMedida=Itens_Boletim.Cod_UnidadeMedida " & _
"WHERE Diarios.Num_Diario=PassaParametro('NumeroDiario') " & _
"ORDER BY Itens_Diario.SequenciaItem"

Obrigada!

Aproveitando eu queria perguntar se você sabe como eu faço para que o meu parâmetro fique com aspas.

WHERE Diarios.Num_Diario=PassaParametro("NumeroDiario")
Nessa linha o meu ("NumeroDiario") é uma string mas eu preciso que ele fique assim na minha consulta ex: "9999" e da maneira que esta ele fica 9999 sem as aspas.

Você sabe como fazer isso?

Boa noite,
Com a permissão do colega le_lo28
Tente WHERE Diarios.Num_Diario=' & PassaParametro("NumeroDiario") & '

Valeu. Deu Certo.