Fórum Montando String SQL - De novo #155293

Boa tarde!!

Tenho o seguinte problema, agora:
Estou tentando montar uma string sql dinâmica, dependendo da escolha do usuário, e quanto ele selecionar duas datas, comparar os dados com BETWEEN. Meu fonte segue anexo, e peço a ajuda dos colegas para verificar por que depois de montar o sql, quando comparo os dados, me retorna um erro ´Type mismatch on object´.

Qualquer ajuda é bem-veinda. Obrigado

[i:1544b2ea7f][b:1544b2ea7f]
if MeDatade.Text <> ´ / / ´ then
begin
if MeDataAte.Text <> ´ / / ´ then
begin
data:=StrtoDate(MeDataAte.Text);
mostra1 :=FormatDateTime(´dd-mmm-yyyy´,data);
end
else
begin
MeDataAte.Text:=´31/12/9999´;
data:=StrtoDate(MeDataAte.Text);
mostra1 :=FormatDateTime(´dd-mmm-yyyy´,data);
end;
data:=StrtoDate(MeDatade.Text);
if ligacao <> ´Where´ then
begin
ligacao:=´ and ´;
end;
mostra :=FormatDateTime(´dd-mmm-yyyy´,data);
[color=red:1544b2ea7f] add(ligacao+´ dataproximacalibracao between ´+#39+ trim(mostra) +39+´´+´and ´+39+ trim(mostra1) +´´´´+´´);
[/i:1544b2ea7f][/b:1544b2ea7f][/color:1544b2ea7f]