Dim MySession As OraSession
Dim OraDb As OraDatabase
Dim OraDyn As OraDynaset, OraSound1 As OraBlob, OraSoundClone As OraBlob

Set MySession = CreateObject("OracleInProcServer.XOraSession")
Set OraDb = MySession.OpenDatabase("exampledb", "samp/samp", 0&)
Set OraDyn = OraDb.CreateDynaset(
   "SELECT * FROM Multimedia_tab ORDER BY clip_id ", ORADYN_DEFAULT)
Set OraSound1 = OraDyn.Fields("Sound").Value
Set OraSoundClone = OraSound1.Clone
 
OraDyn.MoveNext
 
'Copy 1000 bytes of LOB values OraSoundClone to OraSoundl at OraSoundl
'offset 100: 
OraDyn.Edit
OraSound1.Copy OraSoundClone, 1000, 100
OraDyn.Update
