Error type lo no existe

Estimados,

Me da ese error al procesar un desde Visual Basic 6, al insertar una imagen al la base de datos:
La creación de la tabla es Así:

CREATE TABLE "public"."prueba" (
"codigo" INTEGER NOT NULL,
"texto" VARCHAR(20) NOT NULL,
"mono" BYTEA NOT NULL
) WITH OIDS;

y el codigo en Visual Basic 6:
Set Cmdo = New ADODB.Command
Cmdo.ActiveConnection = Cn
Cmdo.CommandText = "INSERT INTO public.prueba(codigo,texto,mono) VALUES (?, ?, ?)"
Cmdo.CommandType = adCmdText

fd = FreeFile
Open strimage For Binary Access Read As fd
flen = LOF(fd)
If flen = 0 Then
Close
MsgBox "Error Archivo Corrupto."
Exit Sub
End If

Set P_codigo = Cmdo.CreateParameter("P_codigo", adInteger, adParamInput, RutEmp.MaxLength)
P_codigo.Value = IIf(Len(RutEmp) = 0, Null, RutEmp.Text)
Cmdo.Parameters.Append P_codigo

Set P_texto = Cmdo.CreateParameter("P_texto", adVarChar, adParamInput, NbFant.MaxLength)
P_texto.Value = IIf(Len(NbFant) = 0, Null, NbFant)
Cmdo.Parameters.Append P_texto

Set P_mono = Cmdo.CreateParameter("P_mono", adLongVarBinary, adParamInput, flen)
ReDim chunk(1 To flen)
Get fd, , chunk()
P_mono.AppendChunk chunk()
Cmdo.Parameters.Append P_mono
Cmdo.Execute

Gracias.

Atte,
Herberth Lagos