**Save to db oConnection = CreateObject("adodb.connection") with oConnection .Provider = "SQLOLEDB.1" .ConnectionString = "Persist Security Info=False;Password=quest;User ID=quest;Data Source=TJM" .Open endwith oRecordSet = CreateObject("adodb.recordset") with oRecordSet .ActiveConnection = oConnection .Source = "Select * From oleobjs" .CursorType = 3 &&Open Static Client default 0 .LockType = 4 &&Lock Batch Optistic default 1 .CursorLocation = 3 &&Client Side Cursor default 2 .Open endwith orecordset.AddNew orecordset.Fields("OLEID").value="12345" orecordset.Fields("OLETYPE").value="BMP" orecordset.Fields("OLEOBJ").appendchunk(FILETOSTR(GETFILE())) orecordset.updatebatch *Get from db oConnection = CreateObject("adodb.connection") with oConnection .Provider = "SQLOLEDB.1" .ConnectionString = "Persist Security Info=False;Password=quest;User ID=quest;Data Source=TJM" .Open endwith *!* Creates the RS oRecordSet = CreateObject("adodb.recordset") with oRecordSet .ActiveConnection = oConnection .Source = "Select * From oleobjs" .CursorType = 3 &&Open Static Client default 0 .LockType = 3 &&Lock Batch Optistic default 1 .CursorLocation = 3 &&Client Side Cursor default 2 .Open endwith oADOStream = CREATEOBJECT("ADODB.Stream") oADOStream.TYPE = 1 && 1=Binary Data, 2=Text Data. oADOStream.OPEN oADOStream.WRITE(oRecordSet.FIELDS("oleobj")) && Pass data to the stream object. lcImageName = "c:\fromdb."+oRecordset.fields("oletype").value oADOStream.SaveToFile(lcImageName,2) && Saves stream object to a file.Unfortunatly giving up is not an option this has to work somehow!