Consulta com Between - Access

:( :shock: :x

Quebrei a cabeça mas até agora não consegui resolver... estou tentando fazer uma consulta no sql (access).

[list:8a7bcca60a] If PageControl1.ActivePage = TabSheet1 then
begin
qBaixados.Close;
qCancelados.Close;
if chx_ClieForn.Checked then
begin
qAbertos.Close;
qAbertos.CommandText := ´Select * From CAGPAGREC Where (CAGDTRP between (#´+DateToStr(Dt_Inicial.Date)+´) and (´+
datetostr(Dt_Final.Date)+´)) and (CAGPAGREC = true) and (baixado = false)´;
end else
begin
qAbertos.Close;
qAbertos.CommandText := ´Select * From CAGPAGREC Where ((CAGFKCOD = ´+edtCodCliente.Text+´) ´+
´and (CAGDTRP between (´+DateToStr(Dt_Inicial.Date)+´ and ´+ datetostr(Dt_Final.Date)+´)) and (CAGPAGREC = true) and (baixado = false))´;
end;
qAbertos.Open;
end;[/list:u:8a7bcca60a]

Tem uma dateedit com data inicial e outro com data final no form..

Não ta dando de jeito nenhum !!!

AGRADEÇO DESDE JÁ!!!