Problema con retorno de setof

[aj_larrosa]

Hola estoy teniendo problemas con un stored procedure. La consulta por si sola retorna valores pero al llamarla desde vb me devuelve un datareader vacio. Aqui va el stored procedure

CREATE OR REPLACE FUNCTION consultactactecliente(codcli integer, fechades date, fechahas date)
RETURNS SETOF movimientoctactecliente AS
$BODY$declare
codcli integer;
fechades date;
fechahas date;
regs movimientoctactecliente%rowtype;
sql text;
begin
codcli=$1;
fechades=$2;
fechahas=$3;

sql= 'select * from "movimientoctactecliente" where "codcliente" =' || codcli ||' and "fecha" between''' || fechades ||'''and''' || fechahas ||'''order by "codmovimientoctactecli" asc, "fecha" desc ';

for regs in execute sql loop
RETURN NEXT regs;
END LOOP;
RETURN;

end
$BODY$
LANGUAGE 'plpgsql' VOLATILE


asi es como lo llamo desde vb


Dim DRMovimientoCtaCteCliente As System.Data.Odbc.OdbcDataReader
DRMovimientoCtaCteCliente = command.ExecuteReader(CommandBehavior.SequentialAc cess)
MsgBox(DRMovimientoCtaCteCliente.VisibleFieldCount )


El msgbox devuelve cero.

Cualquier ayuda, opinión o sugerencia será bienvenida