ERRO AO TENTAR EXIBIR IMAGEM

     Public Sub ValidarDadosUsuário()
        Dim dr As OleDbDataReader = Nothing
        Using con As OleDbConnection = ConexaoBD()
            Try
                con.Open()
                Dim sql As String = [Ô]SELECT login, foto FROM administradores WHERE login Like[ô][Ô] & LoginTextBox.Text & [Ô][ô][Ô]
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                dr = cmd.ExecuteReader(CommandBehavior.SingleRow)

                If dr.HasRows Then
                    dr.Read()
                    [ô]pic_Imagem.Text = dr.Item([Ô]imagem[Ô])

                    [ô]Se ele nao for igual a vazio, quero que ele sempre vai esvaziar limpar e recarregar de novo
                    If Pic_imagem.Image IsNot Nothing Then
                        Pic_imagem.Image.Dispose()
                    End If

                    [ô]Aqui declara outra Variavel
                    Dim fsImagem As New FileStream([Ô]image.jpg[Ô], FileMode.Create)
                    [ô]Outra Variavel - converte imagem para byte
                    Dim blod As Byte() = DirectCast(dr.Item([Ô]foto[Ô]), Byte())

                    fsImagem.Write(blod, 0, blod.Length)
                    fsImagem.Close()
                    fsImagem = Nothing

                    Pic_imagem.Image = Image.FromFile([Ô]image.jpg[Ô])
                    Pic_imagem.Refresh()
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
                Pic_imagem.Image = My.Resources.pefil
            Finally
                con.Close()
            End Try
        End Using
    End Sub