Devolver un OleDbDataReader desde una Funcion

"Drew MaesCa" <Drew wrote in message
news:

Buenas a todos, intento que una función em devuelva un OleDbDataReader a

otra

funcion situada en diferente modulo, simplemente con Return dr en una

funcion

y declarando otro OleDbData Reader en la otra funcion no me funciona, me

dice

q se pasa vacio.
Alquien tiene alguna idea de lo q puede pasar.. ? Muchs gracias..

Tiene que funcionar. Prueba asi:

Public Function DevolverDR() as OleDbDataReader
Dim cmd as New OleDbCommand(sentencia, conexion)
Dim dr as OleDbDataReader = cmd.ExecuteReader()
Return dr
End Function

...

Dim dr as OleDbDataReader = DevolverDR()
While dr.Read()
...
WEnd
dr.Close()