_Recordset 接口

var
   sql : WideString;
   rs : _Recordset;
begin
   OleCheck( CoCreateInstance(CLASS_Recordset, nil, CLSCTX_INPROC_SERVER or
      CLSCTX_LOCAL_SERVER, IUnknown, rs));
   rs.Open(sql, cn, adOpenDynamic, adLockPessimistic, adCmdUnspecified);
   rs.Fields['title'].Value := title;
   rs.Update(EmptyParam, EmptyParam);
end;