Извлечь файл из коррумпированных объекта Ole поле

    Try
        Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\SIGCB.accdb")
            conn.Open()
            Dim command As New OleDbCommand("insert into Data_Ficheiros ([IDB_NINT], [IDB_NMECAN], [IDB_NOMEABV], [ARQ_TIPO], [ARQ_DESC], [ARQ_DATA], [ARQ_FILE]) values (@IDB_NINT, @IDB_NMECAN, @IDB_NOMEABV, @ARQ_TIPO, @ARQ_DESC, @ARQ_DATA, @ARQ_FILE)", conn)
            With command.Parameters
                .AddWithValue("@IDB_NINT", Nº_Interno_TB.Text)
                .AddWithValue("@IDB_NMECAN", Nº_Mecanográfico_TB.Text)
                .AddWithValue("@IDB_NOMEABV", Nome_TB.Text)
                .AddWithValue("@ARQ_TIPO", Tipo_Ficheiro_TB.Text)
                .AddWithValue("@ARQ_DESC", Descrição_Ficheiro_TB.Text)
                .AddWithValue("@ARQ_DATA", Data_Ficheiro_TB.Text)

                Try
                    Dim fs As New FileStream(Localização_do_Ficheiro_TB.Text, FileMode.Open, FileAccess.Read)
                    Dim byteArr(CInt(fs.Length)) As Byte
                    fs.Read(byteArr, 0, fs.Length)
                    fs.Close()
                    .AddWithValue("@ARQ_FILE", byteArr)
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
            End With
            command.ExecuteNonQuery()
            MessageBox.Show("Guardado Com Sucesso.", "INFO", MessageBoxButtons.OK, MessageBoxIcon.Information)
            command.Dispose()
            conn.Close()
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Erro ao Guardar", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try

    Me.Validate()
    Me.Data_FicheirosBindingSource.EndEdit()
    Me.TableAdapterManager.UpdateAll(Me.SIGCBDataSet)

End Sub

Dim cn As New OleDbConnection With {.ConnectionString = Builder.ConnectionString}
    Dim cmd As New OleDbCommand With _
        { _
            .Connection = cn, _
            .CommandText = "SELECT ARQ_FILE FROM Data_Ficheiros Where ARQ_FILE " _
        }
Dim dr As OleDbDataReader = Nothing
Dim FileStream As System.IO.FileStream
Dim Reader As OleDbDataReader
Dim Data() As Byte = Nothing
Dim Writer As System.IO.BinaryWriter = Nothing
Dim bufferSize As Integer = 1000
Dim buffer(bufferSize - 1) As Byte
Dim startIndex As Long = 0
Dim numberOfBytes As Long = 0
    cn.Open()
    Reader = cmd.ExecuteReader(CommandBehavior.SequentialAccess)
    Reader.Read()
    FileStream = New System.IO.FileStream(
        IO.Path.Combine(Application.StartupPath, "Data", "EU.xls"),
        System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
    Writer = New System.IO.BinaryWriter(FileStream)
    Do
        numberOfBytes = Reader.GetBytes(0, startIndex, buffer, 0, bufferSize)
        If numberOfBytes = 0 Then
            Exit Do
        End If
        Writer.Write(buffer, 0, CInt(Fix(numberOfBytes)))
        startIndex += numberOfBytes
    Loop While True
    Writer.Flush()
    If Writer IsNot Nothing Then
        Writer.Close()
    End If
    If FileStream IsNot Nothing Then
        FileStream.Close()
    End If
    If Reader IsNot Nothing Then
        Reader.Close()
    End If
    cn.Close()
    MessageBox.Show("Done")

End Sub