[Rockin]

Tengo el siguiente codigo:
if login.tipo_usuario = 'Operador' then
begin
datDatos.FIBDataSetICCSVentas.Active:= False;
datDatos.FIBDataSetICCSVentas.SelectSQL.Text:='SELECT * FROM ventas where vendedor = :vendedor order by fechaventacons asc';
datDatos.FIBDataSetICCSVentas.ParambyName('vendedor').AsString:= frmlogin.txtUsuario.Text;
datDatos.FIBDataSetICCSVentas.Active:= True;
DBGridConsultaVentas.Columns[0].Width:= 75;
DBGridConsultaVentas.Columns[1].Width:= 75;
DBGridConsultaVentas.Columns[2].Width:= 250;
DBGridConsultaVentas.Columns[3].Width:= 85;
DBGridConsultaVentas.Columns[4].Width:= 150;
DBGridConsultaVentas.DataSource:= datDatos.datSourceICCSVentas;
grpOperador.Visible:= false;

end
else
datDatos.FIBDataSetICCSVentas.Active:= False;
datDatos.FIBDataSetICCSVentas.SelectSQL.Text:='SELECT * FROM ventas order by fecha_venta asc';
datDatos.FIBDataSetICCSVentas.Active:= True;
DBGridConsultaVentas.Columns[0].Width:= 75;
DBGridConsultaVentas.Columns[1].Width:= 75;
DBGridConsultaVentas.Columns[2].Width:= 250;
DBGridConsultaVentas.Columns[3].Width:= 90;
DBGridConsultaVentas.Columns[4].Width:= 150;
DBGridConsultaVentas.DataSource:= datDatos.datSourceICCSVentas;
end;


Lo que hace es mostrar una serie de ventas. Si eres operador solo puedes ver tus ventas por eso se le pasa el Parambyname, pero me da el siguiente error: can´t changue sql text because FIBDataSetIccsVentas.SelectQuery
dataset open.

Da el error pero ejecuta la consulta y lo hace bien. NO se que hacer, porque tengo otra consulta para las fechas y me funciona bien.

Me da el error cuando pongo en el codigo datDatos.FIBDataSetICCSVentas.ParambyName('vendedor').AsString:= frmlogin.txtUsuario.Text;


¿Donde me puedo equivocar?Me vuelvo loco

Saludos.