ADOQuery_Berichte.Close;
  ADOQuery_Berichte.SQL.Clear;
   with ADOQuery_Berichte do
    begin
      SQL.Text:=
  'SELECT buchung.anreise, buchung.abreise, Buchung.gid, adressen.gid,'+#13#10+
  'FROM (buchung LEFT JOIN adressen ON Buchung.gid=adressen.gid)'+#13#10+
  'WHERE (buchung.anreise >= :datevon1) AND (buchung.abreise <= :datebis1)'+#13#10+
  'ORDER BY buchung.anreise';
    with Parameters do
    begin
      ParamByName('datevon1').DataType := ftDate;
      ParamByName('datevon1').Value := Int(DateTimePicker21.Date);
      ParamByName('datebis1').DataType := ftDate;
      ParamByName('datebis1').Value := Int(DateTimePicker22.Date);
      ParamValues['objekt1']:=oid_zusatz;
      ParamValues['wohnung1']:=wid_zusatz;
    end;
      //ExecSQL;
      ADOQuery_Berichte.Open;