(Resolvido) Problema com ADOQUERY

[Pirambu!]

Estou com um problema neste codigo

with query1 do
    begin
      close;
      sql.Clear;
      sql.Add('Select T1.codigo, T2.Nome, T3.Descricao');
      sql.Add('from (Tabela1 T1 left join Tabela2 T2 On T1.codigo =T2.codigo)');
      sql.Add('Left Join Tabela3 T3 On T1.codigo2 = T3.Codigo2');
      sql.Add('WHERE year(T1.Dataadmissao) = :Ano and T1.codigo1 < 100000');
      sql.Add('Order by T1.Nome');
      parameters[0].Value:=Edit1.Text;
      open;
      end;

o Erro é neste local "100000" eu também tentei assim Str(100000) mas também deu erro.

Estou usando Banco de Dados ACCESS.

[Pirambu!]

o Erro é neste local "100000" eu também tentei assim Str(100000) mas também deu erro.

Estou usando Banco de Dados ACCESS.

Pronto Resolvir tinha que ter "" , fica assim

with query1 do
    begin
      close;
      sql.Clear;
      sql.Add('Select T1.codigo, T2.Nome, T3.Descricao');
      sql.Add('from (Tabela1 T1 left join Tabela2 T2 On T1.codigo =T2.codigo)');
      sql.Add('Left Join Tabela3 T3 On T1.codigo2 = T3.Codigo2');
      sql.Add('WHERE year(T1.Dataadmissao) = :Ano and T1.codigo1 < "100000"');
      sql.Add('Order by T1.Nome');
      parameters[0].Value:=Edit1.Text;
      open;
      end;

Valeu.

Editado Abril 15, 2008 por Pirambu!