can't perform this operation on an open database

datamodule1.CDScustomer.Close;
  datamodule1.CDScustomer.CommandText := 'select * from customer';
  datamodule1.CDScustomer.Open;
  datamodule1.CDScustomer.First;
  while not datamodule1.CDScustomer.Eof do
  begin
    combobox2.Items.Add(datamodule1.CDScustomer.FieldByName('name').AsString);
    recs := recs + 1;
    setlength(customer_id, recs);
    customer_id[recs-1] :=
                 datamodule1.CDScustomer.FieldByName('customer_id').AsInteger;
  end;这段代码为什么总是提示"can't perform this operation on an open database"?我在服务器端都好好的，一跑到客户端就什么问题都来了。