BLOBS en Interbase...

Hola a todos:
Estoy desarrollando una aplicacion con Inteerbase de Borland y VB, todo
marchaba bien hasta que llegue a la parte de utilizar los compos BLOBs, al
tratar de accesarlos m envia el siguiente error


Conversion Error from string "BLOB"



Ester codigo lo sque de la red.
Dim bytBLOB() As Byte
With frmPrincipal.CommonDialog(0)
.ShowOpen
PictureBox(0).Picture = LoadPicture(.FileName)
'Open the picture file
intNum = FreeFile
Open .FileName For Binary As #intNum
ReDim bytBLOB(FileLen(.FileName))
'Read the data and close the file
Get #intNum, , bytBLOB
Close #1

Set rs(2) = New Recordset
rs(2).CursorLocation = adUseClient
rs(2).Open "clasificacion_platillos ", cn, adOpenKeyset,
adLockPessimistic, adCmdTable
rs(2).AddNew
rs(2).Fields(0) = 123
rs(2).Fields(1) = "HOLA"
rs(2).Fields(2).AppendChunk (bytBLOB)
rs(2).Update
rs(2).Close
End With

Originalmente esta en una base de datos de acces, y funciona bien, pero al
ponerlo en la aplicacion de Interbase me genera el error

a alguien le ha pasado algo similar

Utilizo objeto ADO, IbOLEDB

salu2

Gulliver