我的程序:procedure TForm1.Button1Click(Sender: TObject);
begin
  with query1 do
    begin
      close;
      SQL.Clear;
      ParamByName('venue').AsString:=edit1.Text;
      SQL.Add('select  * from venues.db');
      SQL.Add('where venue=:var1');
      open;
    end;
end;
venue是数据库DBDEMOS的一个表的一个字段,这段程序的错误怎么改正?望高手赐教!!