You can do that with a tool available at www.aspupload.com
this example we use saves a ole JPG file from a SQL database to a file excelhelper.jpg
file_g is the database fildname where the ole object is stored in.The databasename is image



*** savejpg.prg ***
parameters cImagenr
LOCAL lcConnStr,lcSQL,oConnection,rs
su=createobject("aspSmartUpload.SmartUpload")
lcConnStr="DRIVER=SQL Server;SERVER=sqlserver;User Id=sa;PASSWORD=;DATABASE=pictures"
oConnection=CREATEOBJECT("ADODB.Connection")
oConnection.open(lcConnStr)
lcSQL="select file_g from image where ID_image="+cImagenr
rs=oConnection.execute(lcSQL)
rs.close
rs.cursorType=1 && 1=ADOPENKEYSET
rs.open
x=rs.Fields("file_g")
if rs.recordCount>0
su.FieldToFile(x, "c:\excelhelper.jpg")
endif
rs.close
oConnection.close
RETURN