Вкусная тема - почему бы еще раз не обсудить :)

Я свою обновлялку ужо третий раз переписываю
При загрузке приложение проверяет поле в базе
сравнивает со своей константой
если версия поменялась то
1)обязательная смена версии( юзера предупредить и обновится)
2)не обязательная (предложить юзеру обновится и обновить если согласится)

сама смена у меня происходит в несколько этапов
1) закачивается файл приложения обновляльщика,
содержащий сценарий обновления
поскольку для смены версии может понадобится закачать несколько файлов
или установить новый OCX
2)приложение запускает обновляльщик и само завершается
3)обновляльщик дожидается завершения приложения и закачи вает новый файл(ы) исполняя сценарий обновления
раньше просто копировал с файл сервера
теперь храню в базе и закачиваю через ADODB.Stream.SaveToFile
(удобно если юзер вне домена да и быстрее)
4)приложение по таймеру скрытой формы периодически сканит версию
и если обнаруживает новую то предлагает юзеру обновится (по хорошему)
в случае обязательного обновления и отказа обновится немедленно
обновляется по истичению определенного времени
Сейчас переделываю активацию обновления со скана по таймеру на
сообщения через WinSock

реализация какого именно пункта не понятна ?
Если этот "При загрузке приложение проверяет поле в базе"
То очень просто
'Номер версии интерфейса
Function intVer_ID() As Integer
intVer_ID = 4
End Function

Private Sub Form_Open(Cancel As Integer)
Dim rstTmp As ADODB.Recordset
Set rstTmp = cnn.Execute("dbo.SU_Current_p " & intProjectID)
.........................................................
.........................................................
'Проверка версии программы

If intVer_ID < rstTmp("Ver") Then
'Проверить флаг "спрашивать при обновлении" необязательное обновление
If rstTmp("UpdStatus") Then
'обновить без спроса
UpdVer
Else
'Если спрашивать то спросить
If MsgBox("Есть новая версия програмы.Обновить?", vbYesNo) = vbYes Then UpdVer
End If
End If
..........................................

Можно еще круче
написать свой клас и сделать в нем пропертю
Но конкретное место хранения константы в общем не так уж важно
я использовал функцию потому что ее проще использовать в выражениях
:)

У меня таймера уже нет
Инфу о новой версии для уже запущенных приложений
получаю/рассылаю через WinSock