... думаю чистая (кастрированая Дэмка) вот функа сохранения:
loc_0048A002: push ebp
loc_0048A003: mov ebp, esp
loc_0048A005: sub esp, 00000018h
loc_0048A008: push 00408706h ; MSVBVM60.DLL.__vbaExceptHandler
loc_0048A00D: mov eax, fs:[00h]
loc_0048A013: push eax
loc_0048A014: mov fs:[00000000h], esp
loc_0048A01B: mov eax, 000000BCh
loc_0048A020: call 00408700h ; MSVBVM60.DLL.__vbaChkstk
loc_0048A025: push ebx
loc_0048A026: push esi
loc_0048A027: push edi
loc_0048A028: mov var_18, esp
loc_0048A02B: mov var_14, 00403180h
loc_0048A032: mov eax, arg_08
loc_0048A035: and eax, 00000001h
loc_0048A038: mov var_10, eax
loc_0048A03B: mov eax, arg_08
loc_0048A03E: and al, FEh
loc_0048A040: mov arg_08, eax
loc_0048A043: mov var_0C, 00000000h
loc_0048A04A: mov eax, arg_08
loc_0048A04D: mov eax, [eax]
loc_0048A04F: push arg_08
loc_0048A052: call [eax+04h]
loc_0048A055: mov var_04, 00000001h
loc_0048A05C: mov var_04, 00000002h
loc_0048A063: push FFFFFFFFh
loc_0048A065: call 00408A7Eh ; On Error ...
loc_0048A06A: mov var_04, 00000003h
loc_0048A071: mov var_64, 80020004h
loc_0048A078: mov var_6C, 0000000Ah
loc_0048A07F: mov var_54, 80020004h
loc_0048A086: mov var_5C, 0000000Ah
loc_0048A08D: mov var_44, 80020004h
loc_0048A094: mov var_4C, 0000000Ah
loc_0048A09B: mov var_74, 004182A0h ; "Функция не доступна в демонстрационной версии программы."
loc_0048A0A2: mov var_7C, 00000008h
loc_0048A0A9: lea edx, var_7C
loc_0048A0AC: lea ecx, var_3C
loc_0048A0AF: call 004089DCh ; MSVBVM60.DLL.__vbaVarDup
loc_0048A0B4: lea eax, var_6C
loc_0048A0B7: push eax
loc_0048A0B8: lea eax, var_5C
loc_0048A0BB: push eax
loc_0048A0BC: lea eax, var_4C
loc_0048A0BF: push eax
loc_0048A0C0: push 00000010h
loc_0048A0C2: lea eax, var_3C
loc_0048A0C5: push eax
loc_0048A0C6: call 004089E2h ; MsgBox(arg_1, arg_2, arg_3, arg_4, arg_5)
loc_0048A0CB: lea eax, var_6C
loc_0048A0CE: push eax
loc_0048A0CF: lea eax, var_5C
loc_0048A0D2: push eax
loc_0048A0D3: lea eax, var_4C
loc_0048A0D6: push eax
loc_0048A0D7: lea eax, var_3C
loc_0048A0DA: push eax
loc_0048A0DB: push 00000004h
loc_0048A0DD: call 00408A2Ah ; MSVBVM60.DLL.__vbaFreeVarList
loc_0048A0E2: add esp, 00000014h
loc_0048A0E5: mov var_04, 00000004h
loc_0048A0EC: cmp [00524284h], 00000000h
loc_0048A0F3: jnz 48A110h
loc_0048A0F5: push 00524284h
loc_0048A0FA: push 004107C0h
loc_0048A0FF: call 00408A54h ; MSVBVM60.DLL.__vbaNew2
loc_0048A104: mov var_000000D4, 00524284h
loc_0048A10E: jmp 48A11Ah
loc_0048A110: mov var_000000D4, 00524284h
loc_0048A11A: push 00418178h
loc_0048A11F: push 00000000h
loc_0048A121: push 00000003h
loc_0048A123: mov eax, var_000000D4
loc_0048A129: mov eax, [eax]
loc_0048A12B: mov ecx, var_000000D4
loc_0048A131: mov ecx, [ecx]
loc_0048A133: mov ecx, [ecx]
loc_0048A135: push eax
loc_0048A136: call [ecx+00000424h]
loc_0048A13C: push eax
loc_0048A13D: lea eax, var_24
loc_0048A140: push eax
loc_0048A141: call 00408A78h ; Set (object)
loc_0048A146: push eax
loc_0048A147: lea eax, var_3C
loc_0048A14A: push eax
loc_0048A14B: call 0040887Ah ; MSVBVM60.DLL.__vbaLateIdCallLd
loc_0048A150: add esp, 00000010h
loc_0048A153: push eax
loc_0048A154: call 00408A72h ; MSVBVM60.DLL.__vbaCastObjVar
loc_0048A159: push eax
loc_0048A15A: lea eax, var_28
loc_0048A15D: push eax
loc_0048A15E: call 00408A78h ; Set (object)
loc_0048A163: mov var_000000B0, eax
loc_0048A169: mov var_44, 00000001h
loc_0048A170: mov var_4C, 00000002h
loc_0048A177: lea eax, var_2C
loc_0048A17A: push eax
loc_0048A17B: lea eax, var_4C
loc_0048A17E: push eax
loc_0048A17F: mov eax, var_000000B0
loc_0048A185: mov eax, [eax]
loc_0048A187: push var_000000B0
loc_0048A18D: call [eax+24h]
loc_0048A190: fclex
loc_0048A192: mov var_000000B4, eax
loc_0048A198: cmp var_000000B4, 00000000h
loc_0048A19F: jnl 48A1C1h
loc_0048A1A1: push 00000024h
loc_0048A1A3: push 00418178h
loc_0048A1A8: push var_000000B0
loc_0048A1AE: push var_000000B4
loc_0048A1B4: call 00408A4Eh ; MSVBVM60.DLL.__vbaHresultCheckObj
loc_0048A1B9: mov var_000000D8, eax
loc_0048A1BF: jmp 48A1C8h
loc_0048A1C1: and var_000000D8, 00000000h
loc_0048A1C8: mov eax, var_2C
loc_0048A1CB: mov var_000000B8, eax
loc_0048A1D1: push 00418C14h ; "Файл базы данных не был открыт."
loc_0048A1D6: mov eax, var_000000B8
loc_0048A1DC: mov eax, [eax]
loc_0048A1DE: push var_000000B8
loc_0048A1E4: call [eax+00000080h]
loc_0048A1EA: fclex
loc_0048A1EC: mov var_000000BC, eax
loc_0048A1F2: cmp var_000000BC, 00000000h
loc_0048A1F9: jnl 48A21Eh
loc_0048A1FB: push 00000080h
loc_0048A200: push 00418188h
loc_0048A205: push var_000000B8
loc_0048A20B: push var_000000BC
loc_0048A211: call 00408A4Eh ; MSVBVM60.DLL.__vbaHresultCheckObj
loc_0048A216: mov var_000000DC, eax
loc_0048A21C: jmp 48A225h
loc_0048A21E: and var_000000DC, 00000000h
loc_0048A225: lea eax, var_2C
loc_0048A228: push eax
loc_0048A229: lea eax, var_28
loc_0048A22C: push eax
loc_0048A22D: lea eax, var_24
loc_0048A230: push eax
loc_0048A231: push 00000003h
loc_0048A233: call 004089F4h ; MSVBVM60.DLL.__vbaFreeObjList
loc_0048A238: add esp, 00000010h
loc_0048A23B: lea eax, var_4C
loc_0048A23E: push eax
loc_0048A23F: lea eax, var_3C
loc_0048A242: push eax
loc_0048A243: push 00000002h
loc_0048A245: call 00408A2Ah ; MSVBVM60.DLL.__vbaFreeVarList
loc_0048A24A: add esp, 0000000Ch
loc_0048A24D: mov var_10, 00000000h
loc_0048A254: push 0048A28Dh
loc_0048A259: jmp 48A28Ch
loc_0048A25B: lea eax, var_2C
loc_0048A25E: push eax
loc_0048A25F: lea eax, var_28
loc_0048A262: push eax
loc_0048A263: lea eax, var_24
loc_0048A266: push eax
loc_0048A267: push 00000003h
loc_0048A269: call 004089F4h ; MSVBVM60.DLL.__vbaFreeObjList
loc_0048A26E: add esp, 00000010h
loc_0048A271: lea eax, var_6C
loc_0048A274: push eax
loc_0048A275: lea eax, var_5C
loc_0048A278: push eax
loc_0048A279: lea eax, var_4C
loc_0048A27C: push eax
loc_0048A27D: lea eax, var_3C
loc_0048A280: push eax
loc_0048A281: push 00000004h
loc_0048A283: call 00408A2Ah ; MSVBVM60.DLL.__vbaFreeVarList
loc_0048A288: add esp, 00000014h
loc_0048A28B: ret
... без вариантов думаю!
Ищи не кастрированую! И выкладывай в эту ветку - будем поглядеть !
