Visual Basic.NET - Memoria insuficiente

Public Sub MostrarFotoAfiliado(IdeAfiliado As Integer, ByVal PicFoto As PictureBox)

    Dim Sql As String = "select fotafi from sit_afiliados where ideafi=" & IdeAfiliado

    Dim lector As MySqlDataReader

    Conectar()

    Dim Imag As Byte()

    Dim Comando As New MySqlCommand(Sql, cConn)

    lector = Comando.ExecuteReader

    lector.Read()

    Try

        If lector("fotafi") Is DBNull.Value Then

            PicFoto.BackgroundImage = Image.FromFile(CPATH & "trabajador.png")

        Else

            Imag = lector("fotafi")

            PicFoto.BackgroundImage = Bytes_Imagen(Imag)

        End If

    Catch ex As Exception

    End Try

    lector.Dispose()

    Desconectar()

End Sub

Public Function Bytes_Imagen(ByVal Imagen As Byte()) As Image

    Try

        If Not Imagen Is Nothing Then

            Dim Bin As New MemoryStream(Imagen)

            Bin.Dispose()

            Return Image.FromStream(Bin)

        Else

            Return Nothing

        End If

    Catch ex As Exception

        Return Nothing

    End Try

End Function

Dim lector As MySqlDataReader   ‘ Este escritura es sin NEW

‘ … … …

‘       lector.Dispose ‘No es bien, sin NEW, no Dispose. Para terminar lector, tienes que usar Close

lector.Close()