TADOBlobStream and LoadFromFile

Any reason why the following doesn't work (but doesn't return any error) ?

{---------------------------------------------------------------------------
-------}
procedure TfrmMain.SaveTest();
var
      sFileName : string;
      BS: TADOBlobStream;
begin
      dmData.qryVersion.Open;

      dialOpen.Execute;
      sFileName := dialOpen.FileName;
      ShowMessage(sFileName);

      // Place in edit mode.
      if not (dmData.qryVersion.State in [dsEdit, dsInsert]) then
            dmData.qryVersion.Edit;

      // Create blob stream.
      BS :=
TADOBlobStream.Create(TBlobField(dmData.qryVersion.FieldByName('binaryExec')
), bmReadWrite);
      try
            BS.LoadFromFile(sFileName);
            dmData.qryVersion.Post;
      finally
            BS.Free;
      end;

      dmData.qryVersion.Close;
end;
{---------------------------------------------------------------------------
-------}

Any ideas anyone?

Thanks a bunch