🚀 go-pugleaf

Hi,
I'm writing a Database App for a friend who is a music agent to handle his
booking schedule, using the BDE to access Pdx tables. My app has a
parameterised query  linked to a grid to view artists who are available on a
given date. The SQL statement is:

SELECT ArtistName FROM Artists WHERE ArtistNumber NOT IN
(SELECT ArtistNumber FROM Events WHERE
EventDate = :EventDate);

.....From which I get a good result set.

The code for manipulating the :EventDate parameter goes like:

procedure TForm1.DateTimePanelChange(Sender: TObject);
begin

with Query1 do
begin
Close;
ParamByName('EventDate').AsString:=DateToStr(DateTimePanel.Value);
Open;

end;
end;

This works a few times then locks up my machine, mouse and all.
If I'm doing something blindingly stupid, please enlighten me 'cos I'm new
to this SQL lark.

Any help appreciated,
Colin. colin.c@usa.net