Очередная думка %)

> Дмитрий
Подробнее, если не трудно...
з.ы. Заранее спасибо!

могу только чисто схематически.
сохранить в базу:
(например: в базе есть табличка MyTable с полями ID,MBlob;
блок уже должен быть сохранен в виде файла, имя файла в переменной FileName)
dim Dim s As Stream
dim ACom as ADODB.Command
dim SizeBlock as integer
Set s = New Stream
s.LoadFromFile FileName
SizeBlock = s.Size
set ACom = new ADODB.Command
ACom.ActiveConnection = ADODBConnection
ACom.CommandTex = "INSERT INTO MyTable(MBlob) VALUES (?)"
ACom.Parameters.Refresh
ACom.Parameters.Item(0).Value = s.Read(SizeBlock)
ACom.Execute
' все: блок сохранен в базу
//////////////////////////////////////////////////
"достать" из базы:
dim Dim s As Stream
dim ACom as ADODB.Command
dim SizeBlock as integer
dim RS as recordset
Set s = New Stream
set ACom = new ADODB.Command
ACom.ActiveConnection = ADODBConnection
ACom.CommandTex = "SELECT MBlob FROM MyTable WHERE ID=?"
ACom.Parameters.Refresh
ACom.Parameters.Item(0).Value = 1 'нужное значение ключа
SET RS = ACom.Execute
s.Open RS.Fields(0).Value
s.SaveToFile FileName
' все: блок записан в файл