problema con AdoDataset

[jocey]

Hola a la maravillosa familia del foro, miren tengo problemas con una consulta a una base de datos y al mostrar los resultddos en un reporte con quickreport, pero pasa que cuando lo ejecuto por primera vez todo sale bien, y cuando trato de consultar por otro valor me dice 'Can not perform this operation on an open Dataset', vaya se que es que el Dataset esta abierto, pero bueno, les adjunto el codigo para ver si me pueden corregir.... Saludos de antemanos.
Jocey


with formdepartamento do
begin
PathBD := ExtractFilePath(Application.ExeName);
CadenaConexion := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + PathBD + 'data.mdb';
DataSetreportdep.ConnectionString := CadenaConexion;
DataSetreportdep.CommandText := 'select * from principal' + ' WHERE (((principal.departamento)=''' + Formparametros.Combodepa.Text + ''' ))';;
DataSetreportdep.Open;
begin
QRDBdep.Caption := DataSetreportdep.fieldbyname('Departamento').value;
QRDBuser.Caption := DataSetreportdep.fieldbyname('usuario').value;
QRDBsetup.Caption := DataSetreportdep.fieldbyname('setup').value;
QRDBred.Caption := DataSetreportdep.fieldbyname('red').value;
QRDBref.Caption := DataSetreportdep.fieldbyname('Refrescador').value;
QRDBcorreo.Caption := DataSetreportdep.fieldbyname('correo').value;
QuickRep1.Preview;