¿Como Copiar Un Solo valor en Tablas Access?

[wiwaedu]

Tengo este código:

with QCopy do
begin
Active := false;
SQL.Clear;
SQL.Text := 'INSERT INTO B(NumSet,Cantidad) VALUES ("'+DBEdit1.Text+'",'+Edit1.Text+')';
Active := true;
end;

Qcopy es un Query apuntando a la tabla A

El caso es, que los datos algunas veces los copia.

ERROR: QCopy: CommandText does not return a result set.