Dim OraDyn as OraDynaset, OraPhoto as OraBFile, OraMusic as OraBFile 
Set OraDyn = OraDb.CreateDynaset("select * from Multimedia_tab",ORADYN_DEFAULT) 
Set OraMusic = OraDyn.Fields("Music").Value
Set OraPhoto = OraDyn.Fields("Photo").Value
 
'Go to the last rowand open Bfile for reading: 
OraDyn.MoveLast 
OraPhoto.Open 'Open Bfile for reading 
'Do some processing:  
OraPhoto.Close 
