ADOQuery puca....buum

Evo ga deo koda:
procedure dugmeklik(sender...
begin
with ADOQuery do begin
Close;
SQL.Clear;
SQL.Add('select * from Tabela where Datum = (:Datum)');
Parameters [0].Value := DateToStr(D1.Date);
Open;
end;
.........
problem je sledeci : kad mi query vrati(by the way u Grid) podatke OK, ali kad uslov ne zadovolji vrati verovatno prazan kursor i sledeci put kad pokrenem query (kliknem na dugme) pukne na Close;
Poruka je " BOF or EOF .....or current record was deleted ....."
Verujem da ste se susretali sa ovim. Sta uraditi ?

Ne preostaje ti nista drugo sem da napravis petlju za izutetak pre neko otvoris Query