Не знаю уж как обьект OLE или не обьект .... но файл можно записать и затем прочитать вот так (имеется таблица "Excel" с image полем "OLEOB",файл "IN.xls"):

Option Explicit

Private Sub Command1_Click()
Dim bytBLOB() As Byte
Dim bytChunk() As Byte
Dim intnum As Integer
Dim c As New ADODB.Connection
Dim r As New ADODB.Recordset
Dim lngOffset, lngImageSize As Long
Const conChunkSize = 100

c.Open "Provider=sqloledb;server=MYSERVER;DataBase=MYDB;Trusted_Connection=Yes"
r.ActiveConnection = c
r.CursorLocation = adUseServer

r.Open "Excel", , adOpenKeyset, adLockOptimistic
intnum = FreeFile
Open "c:\IN.xls" For Binary As #intnum
ReDim bytBLOB(FileLen("c:\IN.xls"))

Get #intnum, , bytBLOB
Close #intnum

'======== добавим Excel файл в базу

r.AddNew
r.Fields("OLEOB").AppendChunk bytBLOB
r.Update
r.Close

'======= Читаем и создаем Исходный файл
intnum = FreeFile
Open "C:\OUT.xls" For Binary As #intnum

r.Open "Excel"
r.MoveFirst
lngImageSize = r("OLEOB").ActualSize
Do While lngOffset < lngImageSize
bytChunk() = r("OLEOB").GetChunk(conChunkSize)
Put #intnum, , bytChunk()
lngOffset = lngOffset + conChunkSize
Loop
MsgBox "ВСЕ"
r.Close
Set r=Nothing
c.Close
Set c=Nothing


End Sub