procedure ActivateAllTables(Connection: TADOConnection);
var
  i: integer;
begin
  if not Connection.connected then connection.Open;
  with Connection do begin
    for i:= 0  to DataSetCount- 1  do begin
      try
        with DataSets[i] do if not Active then begin
          AfterPost:=SetQueryProperties;
          AfterOpen:=SetQueryProperties;
          Open;
        end;
      except
      end;
    end;
  end;
end;

procedure SetQueryProperties(DataSet: TDataSet);
begin
  if DataSet is TADOQuery then with (DataSet as TAdoQuery) do begin
    Properties['Update Criteria'].Value:= adCriteriaKey;
    Properties['Update Resync'].Value:= adResyncAutoIncrement + adResyncInserts;
  end;
end;