help, i can't insert a blob

i have this code, but the error i obtain is: OIP-04903: Row must be locked for this LOB operation

Dim OraDb As OraDatabase
Dim Sesion As OraSession

Dim OraDyn As OraDynaset
Dim OraSound As OraBlob

Private Sub Command2_Click()
On Error GoTo errorinsertar
Set Sesion = CreateObject("OracleInProcServer.XOraSession") Set OraDb = Sesion.OpenDatabase("JUAN", "garay/10061981", 0&)

Set OraDyn = OraDb.CreateDynaset("select * from GARAY.PRUEBA", ORADYN_DEFAULT)
Set OraSound = OraDyn.Fields("FOTO").Value

'OraDyn.Edit

OraDyn.AddNew
OraSound.CopyFromFile "c:\uno.jpg"
OraDyn.Update
MsgBox "Insercion correcta"
Exit Sub

errorinsertar:
'MsgBox "Error al inertar la foto"

MsgBox Error
End Sub Received on Sat May 08 2004 - 14:31:19 CDT