Invalid BLOB handle in record buffer - error

I have a problem with my code. I need to extract the text from the blob field of an Access database table.
I use a stringgrid (kStringGrid) where I want to push all the records of the table initial Access table. This table has a BLOB field which I cannot view unles I use a DBMemo. What I'm trying to do is take each record from the first to the last and save the fields I'm interested in to the stringgrid. I built a procedure to do that.
So my code  looks like this:


procedure upd_ann;
var
 data,s,p,u,stare:string;
 size:string;
begin
with form1 do
 begin
        q1.Active:=false;
        q1.Active:=true;
        q1.FindLast;
        u:=DBGrid1.Fields[0].AsString;
        q1.FindFirst;
        p:=DBGrid1.Fields[0].AsString;
        Memo3.Lines:=DBMemo1.Lines;
        If u<>p then
        repeat
                q1.FindNext;
                p:=DBGrid1.Fields[0].AsString; //field 1 (string)
                s:=Memo3.Lines.Strings[1];     //                                   FIELD 2 (comment) THE BLOB I NEED
                data:=DateTimeToStr(DBGrid1.Fields[2].AsDateTime);
                kStringgrid2.AddRow;
                kStringgrid2.Cells[1,kStringgrid2.Row]:=p;
                kStringgrid2.Cells[2,kStringgrid2.Row]:=s;
                kStringgrid2.Cells[5,kStringgrid2.Row]:=data;
        until u=p;
 end;


end;



Can anyone tell me what may be wrong about this. I read a few lines about this error but I could not solve my problem though. They wer about BLOB CACHE size... .
I'm sure I'm not the first that encounters this problem nor this error.
Any good code is welcome.