Intento no válido de FieldCount cuando el lector está cerrado.

[almaluz]

Hola,

Seguro que es un error "de Cajon" como se dice en mi tierra, pero no se a que puede deberse.

tengo este codigo, y agradecería "Pistas"

Gracias.

Sub Page_Load(obj As Object, e As EventArgs)

intpadre = Request.Params("padre")

If intpadre="" Then
intpadre = -1
End If

dgFamilias.DataSource = objFamilias.Llenar_Familias(intpadre)
DataBind()

End Sub

y aqui la funcion:

Public Function Llenar_Familias(intpadre As String) As OledbDataReader


' Definimos el comando que trae los datos mediante un store procedure llamado spfamilias
Dim ObjCmd As New OleDbCommand ("sppadre", ObjConn)
ObjCmd.CommandType=CommandType.StoredProcedure

Dim ObjParam As OleDbParameter

ObjParam = ObjCmd.Parameters.Add("@padre",OleDbType.BStr)
ObjParam.Value = intpadre


Dim ObjLector As OleDbDataReader

TRY
ObjConn.Open()
objLector = ObjCmd.ExecuteReader

Catch ex As OleDbException
throw ex
Finally
ObjConn.Close()
End Try

Return ObjLector

End Function


End Class