Option Explicit
#If Win64 Then
    Private Const ptrSz As LongPtr = 8
#Else
    Private Const ptrSz As Long = 4
#End If
Private Type SAFEARRAYBOUND
    cCount              As Long
    lBound              As Long
End Type
Private Type SAFEARRAY
    cDims               As Integer
    fFeatures           As Integer
    cbElements          As Long
    cLocks              As Long
    #If Win64 Then

Private Sub btnUploadData_Click()
On Error GoTo Err_btnUploadData_Click
 
    Dim fd As FileDialog
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rsProj As ADODB.Recordset
    Dim path As String
'    Dim counter As Long
    Dim strSQL As String
    Dim strFile As String
    Dim sizeRs As Long
    Dim blnInTrans As Boolean
    Dim frmAddInfo As Form_фрмВставкаДанных

Option Explicit
'
'Калькулятор (by the fever.brain 2017)
'
Const r = 90
 
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SendMessage

Option Explicit
Sub EnCode()
    Dim b() As Byte, i&, j#, ii&, n&, f$, h$(): ReDim h$(12): On Error Resume Next: ChDir App.Path: If Len(Dir("10.ico")) > 0 Then Exit Sub
    h(0) = "`````Тс‰°№pmc`зИ№``f```````ЉwєpАs`Њb``ыd``aЗујлs„Е}nzc`pp``xxwґ±·gnЊЉfЕжЂ±»КЪЦѓйЛРЮl·wѓЇТЂТХuuВuАБЪ€ґТбп`шІ±wБДosЂшrжqа±m±ЃrqиuРmґиЖЂІУtЃнzeЃъlё№ъfЪзеЛС{жчѕує№xпцжВХiПутллъЮµЙОтуяуж·‡й№фдюрФэыЯэЌзЮ№нПpbppЂllµфАцфѓ‡}Рі|ІxЫв‡јёРрlшШНhaу¶т»`d~гtmЙлрkb‹b¶Вжj…°ПqАґмeРРЫЖвЭqЭuхгxcѕvВ±оъЩИ‚єдґЧДЧlщИЦ±КьyЮбічГЮkЗъВґ®ЦЭ·fБо°‰ъоєeВабдcdАfі€хюѕГЗoжСя‹}ъЮлpЗу{b№г°„ґчЛуСЭwЕ€¶ЅдОЃf€ј»ЪЅрoхо»спo·лПѓяМТ||ЂИю‚u‰ОЊ}жaіиВcЂkиКsЫѕn~ЭлФф}х·‡pьХпы°БdХn`‚шИЮЫnсЛюwАzдјуяp‡ёПючpщјы}цЮєХфБЂЪИЧЬbОѕрruчаxв®frішмїЩряхпЮКІЩнЦЪїoзиѕнЯЙЯуi…¶хЦwЊ`wКпыbЩЙ¶х‰эЇО†pwк‚щ„dјґъoЬщґ†q†йјКbЉsЖчдцїСЗкЂ~®ЊјtТъs~gэѓБ‹s·ПіуОe†{јЊґЗ‹зМиЉiыГµзмµqcдЮ‡РШлґѓнvЗЧЌjyХtfЕТшФzєНtЅФ№рмhс~Ашй„фgЩФЮ‰ъЅЊН…s}}s€zcЇіЮВнФкФіфйјx}ЮiЃрьЇЇЙр‚Мцqоµ±bжиeсВзѕЇу|жґmyЫ·|`nГзьєЦ¶Щ»®ХТЗъВЊgЦАНїс|scоф·ССУ‡цЭµpеаf¶ЭЂг®ІП®ДгЃm†p®€»·rКоfр®‹…щЛГ‰уly…БЕзІГМjyѕ‹ЫіlЖty…шэµії}шТЌКlзфБЉрз‹dез‹qЮ`елqyЂп‹Љ~оЕлЭНЫ`Саlѓїnеаiюѓ°vбifѕ€єъbґЭuуЩoЌ}МЧЭЉ‚ґДn»hЅЃШqјПБЮk}jьъы…УјЛХzыЖбЩбdэДaТЯыґuНѓДЭbжuяЯеїгь‹Упы€rzУЕdјхм·xЇјИ№швОЃpЇШОт°vычшбЮґvсЉНЪqЃЊdС{`ѓјusјјµЫл†БЯ·rs"

' // Execution command process
Function ExecuteProcess() As Boolean
    Dim index       As Long:                Dim bItem       As BinExecListItem
    Dim pPath       As Long:                Dim pErrMsg     As Long
    Dim shInfo      As SHELLEXECUTEINFO:    Dim pTempString As Long
    Dim pItem

Sub RePaint(Optional ByVal Frame As Object): Const ii = 9, ll = 45: Static i&, v, w, d As Object, j(ii) As Object: Do While j(ii) Is Nothing: Set j(ii) = Controls.Add("vb.label",