Campos calculados y Access
 

Hola, tengo un problema, haber si me lo podeis solucionar, tengo un campo calculado, que sale bien, excepto que no se como se rellena. Quiero rellenarlo a traves de un dato de una consulta, pero devuelve varias filas, y se tiene que rellenar segun si coincide el codigo de la consulta con el de dbgrid:

procedure TDataModule12.QGSocioDiasCalcFields(DataSet: TDataSet);
begin
QGSocioDias.FieldByName('dias').asInteger := 0;
QPrestamo.Sql.Clear;
QPrestamo.Sql.Add('SELECT cod_socio,SUM(DATEDIFF(''d'',FECHA,DATE())) as cant FROM Prestamo GROUP BY cod_socio');
QPrestamo.Open;
if(QGSocioDias.FieldByName('codigo').asInteger = QPrestamo.FieldByName('cod_socio').asInteger) then
QGSocioDias.FieldByName('dias').AsInteger := QPrestamo.FieldByName('cant').AsInteger;
{QGSocioDias.FieldByName('dias').AsInteger := SELECT P.COD_SOCIO,SUM(DATEDIFF('d',P.FECHA,DATE()))
FROM PRESTAMO P
GROUP BY P.COD_SOCIO}
end;

Asi solo me coge la primera fila de la consulta...