[firebase-br] Problemas com Select

[Fabiano]

Prezados Colegas,

Estou desenvolvendo uma aplicação com Delphi 7, DBExpress e com o banco firebird, estou com problemas para pesquisar os registros no banco. Meu botão p/consulta está assim:

procedure TFrmPesquisa.SpeedButton1Click(Sender: TObject);
var
vDataIni,
vDataFim : string;
begin
vDataIni := FormatDateTime('mm/dd/yyyy', DateTimePicker1.Date);
vDataFim := FormatDateTime('mm/dd/yyyy', DateTimePicker2.Date);

DmPesquisa.cdsPesquisa.Close;
DmPesquisa.cdsPesquisa.CommandText :=
'select c.cli_codigo, c.cli_nome, v.cli_codigo, v.vis_data, v.vis_hora' +
'from cliente c, visita v where c.cli_nome = ' + Edit1.Text +
'and v.vis_data between '+ vDataIni + 'and' + vDataFim +
'and c.cli_codigo = v.cli_codigo';
DmPesquisa.cdsPesquisa.Open;
end;

Só q na hora em q mando pesquisar ocorre o seguinte erro:
Token unknown -line 1, char 83 c.

O q pode está errado?

 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!