Mostrar la información que tiene un Datareader

[popopo]

primero supongamos que en la capa de datos tenes la funcion

class xx

funcion devolver_datareader() as datareader

.
.
.
dr=cm.executereader

devolver_datareader=dr
end function
endclass

en la otra capa

function otra_funcion() as datareader
dim dr as new xx
dr=xx.devolver_datareader

otra_funcion=dr
end function

probala y contame