ADODB::\_RecordsetPtr prs = NULL;
            CREATEINSTANCE\(prs, ADODB::Recordset\);
            prs\-\>CursorLocation = ADODB::adUseClient;
            prs\-\>Properties\-\>Item\["Update Resync"\]\-\>Value = \(long\)ADODB::adResyncAll;
            prs\-\>Open\(\_bstr\_t\("SELECT \* FROM TestTable WHERE 1=0"\), \(IDispatch \*\)m\_pConnection, ADODB::adOpenKeyset, ADODB::adLockOptimistic, ADODB::adCmdText\);

            prs\-\>AddNew\(\);
            prs\-\>Fields\-\>Item\["Name"\]\-\>Value = "Some Text";
            prs\-\>Update\(\);

            long id = \(long\)prs\-\>Fields\-\>Item\["ID"\]\-\>Value;              // throws an DB\_E\_DELETEDROW

            prs\-\>Close\(\);
            prs = NULL;