[firebase-br] Problemas com Campos Blob

[cursosvb]

Olá a todos..

Desenvolvi uma aplicação que tem a finalidade de gravar matérias de
jornais no banco firebird. Como as matérias não são de tamanho
definidos estou usando um campo do tipo blob.

Criei duas procedures: uma para gravação e outra para leitura.

O problema é que na leitura as vezes a procedure não retorna para mim
o conteúdo do campo. 

O que pode esta ocorrendo de anormal e o que fazer para resolver este
problema...

Estou usando o Firebird 2.0, VB6.0 

Segue abaixo a procedure de retorno que criei...

SET TERM ^ ;

CREATE PROCEDURE SP_RETORNA_JORNAL (
    datajornal date,
    codigoempresa integer)
returns (
    textojornal blob sub_type 1 segment size 80,
    corjornal varchar(20))
as
begin
    select  
        jornal.strjornal_texto,
        jornal.strjornal_cor 
    from
        jornal
    where
        jornal.dtmjornal_data = :datajornal
        and
        jornal.intempresa_codigo = :codigoempresa
    into
        :textoJornal,
        :corjornal;
    suspend;
end^
SET TERM ; ^

Aguardo retorno urgente..

Grato

Alessandro