关于用 TADOQUERY 删除数据的问题

var
t,n:string;begin
t:='2003-7-7 1:00:00';
n:='七支';
q.Close;
q.SQL.Clear;
q.SQL.Add('select * from 日报表');
q.SQL.Add('where 起时间='''+t+''' and 站名='''+n+'''');
q.Open;
if q.RecordCount>0 then begin
  q.Close;
  q.SQL.Clear;
  q.SQL.Add('delete from 日报表');
  q.SQL.Add('where 起时间='''+t+''' and 站名='''+n+'''');
  q.Open;
  showmessage('Have Data');
  end
  else showmessage('NO Data');
end;以上语名执行后总是出现 ‘q:commandtext does not return a result set '的提示，这是为什么，该怎么改呢？请大家多指点