Dim OraDyn as OraDynaset, OraSound as OraBLOB  
 
'Select a column with clip_id  = 1: 
Set OraDyn = OraDb.CreateDynaset("SELECT * FROM Multimedia_tab WHERE 
    clip_id = 1", ORADYN_DEFAULT) 
 
'Get the OraBlob object from the field: 
Set OraSound = OraDyn.Fields("Sound").Value 
 
'Create a parameter for OraBlob object: 
OraDb.Parameters.Add "SOUND",NULL,ORAPARM_INPUT,ORATYPE_BLOB 
 
'Set the value of SOUND parameter to OraSound: 
OraDb.Parameters("SOUND").Value = OraSound 
 
'Update the Multimedia_tab with OraSound for clip_id = 2: 
OraDb.ExecuteSQL("Update  Multimedia_tab SET Sound = :SOUND 
   WHERE Clip_id = 2") 
