Excepción no controlada

[jordan]

Hola a todos,

al ejecutar este proceso,

Sub actualizamaquina()
Dim p As New DAT.Funciones
Dim pp As New DAT.Funciones
sentencia = "SELECT * FROM EPLT INNER JOIN AART ON EPLT.CODREF = AART.CODREF WHERE (EPLT.CODMAQ =" & Me.maqori.Text & ") AND (AART.FAMILI = '" & Me.fami.Text & "')"
mireader = pp.retornaregistro(mico, sentencia)
While mireader.Read
refer = Mid(mireader("codref"), 4, 3)
Dim lon As Int32 = refer
If lon >= min And lon <= max Then
Me.proceso.Text = mireader("codref")
Dim r As String = mireader("codref")
Dim l As Int16 = mireader("numlin")
sentencia = "update eplt set codmaq=" & Me.maqnue.Text & " where codref='" & r & "' and numlin=" & l & ""
mireader2 = p.retornaregistro(mico2, sentencia)
mireader2.Close()
End If
End While
mireader.Close()
End Sub

me sale el siguiente error, (no se produce la primera vez, sale despues de haberse ejecutado varias veces el while).

Excepción no controlada del tipo 'System.Data.SqlClient.SqlException' en system.data.dll

El programa para en la funcion retornaregistro. (lrea = Lcom.ExecuteReader, que se llama desde mireader2 = p.retornaregistro(mico2, sentencia)).

Public Function retornaregistro(ByVal conf As BLL.Datos, ByVal sql As String) As SqlClient.SqlDataReader
Dim Lcom As New System.Data.SqlClient.SqlCommand(sql, conf.conex)
Dim lrea As SqlClient.SqlDataReader
lrea = Lcom.ExecuteReader
Return lrea
End Function

No se si queda claro, pero no veo que es lo que me está pasando.