excelVersion = "0"
   On Error GoTo noExcel
   Dim objExcel As Object
   Set objExcel = CreateObject("Excel.Application")
   excelVersion = objExcel.Version
   objExcel.Quit
noExcel:
    On Error GoTo 0

Set objExcel = CreateObject("Excel.Application")

'======================================
' Главная процедура
Sub Main()

    InitCommonControlsVB
    idUser = 0
    NPP = 0
    lShowData = False
    lSchFio = True       ' Поиск по фамилии
    lSchDoc = False      ' Поиск по документу, удостверяющему личность
    lSchPol = False      ' Поиск по страховому свидетельству
    On Error GoTo Err_handler_ODBC
    sqlServer = GetRegString(HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBC.INI\bp", "SERVER")
    If (sqlServer = "") Then
        sqlServer = GetRegString(HKEY_CURRENT_USER, "SOFTWARE\ODBC\ODBC.INI\bp", "SERVER")
    End If
    On Error GoTo 0

    Set dbCn = New rdoConnection           ' Открыть базу данных
    dbCn.Connect = "DSN=bp;"

    Dim rsVers As rdoResultset
    Set rsVers = dbCn.OpenResultset("SHOW VARIABLES like 'version'")
    MySQLVersion = rsVers!Value
    If Mid(rsVers!Value, 1, 4) <= "4.0." Then   ' Если не версия 4.0.
       MsgBox "Не поддерживается работа с MySQL версии ниже 4.1!", vbCritical
       End
    End If

    If Mid(rsVers!Value, 1, 4) = "4.1." Then   ' Если версия 4.1.
        execSQL "SET DATEFORMAT ymd"
    End If
    dbCn.Execute "SET NAMES 'cp1251'"
    dbCn.Execute "USE bp"

    rsVers.Close

    wordVersion = "0"
    On Error GoTo noWord
    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    wordVersion = objWord.Version
    objWord.Quit
noWord:
    On Error GoTo 0

    excelVersion = "0"
    On Error GoTo noExcel
    Dim objExcel As Object
    Set objExcel = CreateObject("Excel.Application")
    excelVersion = objExcel.Version
    objExcel.Quit
noExcel:
    On Error GoTo 0
    If wordVersion = "0" Then
        MsgBox "Внимание не установлен Microsoft Word!" & vbCr & "Выписка рецептов не возможна!", vbExclamation
    End If

    logRec "Start"

    SetLayout kbrdRussian

    Dim fLogin As New frmLogin   ' Вызвать форму регистрации пользователя в системе
    fLogin.Show vbModal
    If Not fLogin.OK Then        ' Если регистрация пользователя отменена
       End
    End If
    Unload fLogin

    frmSplash.Show               ' Показывать форму вспышки пока инициализирется главная форма
    frmSplash.Refresh

    loadOptions                  ' Загрузить из базы Опции

    If Not Integrity() Then
       MsgBox "Нарушена целостность программы или не обновлена версия!", vbCritical
       End
    End If

    Set b64 = New base64
    
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash

    fMainForm.Show               ' Переход в главную форму программы
    Exit Sub

Err_handler:
    MsgBox "Ошибка установки соединения с базой данных! (" & Err.Number & ")" & Chr(13) & Err.Description, vbCritical
    End
Err_handler_ODBC:
    MsgBox "Не описан источник данных bp! (" & Err.Number & ")" & Chr(13) & Err.Description, vbCritical
    End
End Sub