Ingreso la foto a Access, pero......

[joseamesti]

con el siguiente codigo:

<% dim conexion
dim registro
dim total
dim enviar

'los campos son
'id,nombre,consulta,descripcion,foto
total=Request.TotalBytes
enviar=Request.BinaryRead(total)
set conexion=createobject("adodb.connection" )
set registro=createobject("adodb.recordset")
conexion.Open "foros"
registro.ActiveConnection=conexion
registro.CursorType=adOpenKeyset
registro.LockType=adLockOptimistic
registro.Source="VisualBasic"
registro.Open

registro.AddNew
registro.Fields("nombre")="jose&quo t;
registro.Fields("consulta")="¿que pas en esta casa?"
registro.Fields("descripcion")="qui era dios que cambie para mejor"
registro.Fields("foto").AppendChunk enviar
registro.Update
registro.Close
conexion.Close

set registro=nothing
set conexion=nothing
















%>





que esta en una pagina que recibe un archivo binario(una foto), la agrego a una base de datos access, el campo de la foto es Objeto Ole, los demas campos no me dan problema, lo que pasa es que no me envia ningun error, pero despues cuando ingerso a access y le hago doble clic al campo que contiene la imagen me envia el siguiente mensajito de error:

Ocurrio un problema mientras access se comunicaba con el servidor Ole
cierre el servidor Ole y reinicielo fuera de microsoft access. Despues
vuelva a intentar la operacion original de Microsoft Access.

¿Cual es el problema?, por favor revisenlo bien, gracias de antemano, estoy aprendiendo ASP por mi cuenta y es un poco dificil cuando uno no tiene a nadie cercano a quien preguntar.