anchor.diff:          efirebirdsql_op:op_execute(TransHandle, StmtHandle, Params)),
       case efirebirdsql_op:get_response(Mod, Sock) of
           {op_response,  {ok, _, _}} -> ok;
  -        _ -> {error, "Execute query failed"}
  +        {op_response, {error, Msg}} -> {error, Msg}
       end.
   
   fetchrows(Mod, Sock, StmtHandle, XSqlVars, Results) ->
  
positive.code:         efirebirdsql_op:op_transaction(DbHandle, Tpb)),
      case efirebirdsql_op:get_response(Mod, Sock) of
          {op_response,  {ok, Handle, _}} -> {ok, Handle};
          _ -> {error, "Can't begin transaction"}
      end.
  
  %% prepare and free statement
  
negative.code:                     case allocate_statement(Mod, Sock, DbHandle) of
                          {ok, StmtHandle} ->
                              {ok, State#state{db_handle = DbHandle, stmt_handle = StmtHandle}};
                          {error, Msg} ->
                              {{error, Msg}, State#state{db_handle = DbHandle}}
                      end;
                  {error, Msg} ->
                      {{error, Msg}, State}
              end;
          op_reject -> {{error, "Connection Rejected"}, State}
      end.
  