Хочу сделать так что бы при открытии БД проверялся ключ в реестре тоесть если ключ есть БД откроется если нету ключа тогда Не откроется! скажу честно пробовал искать поиском нашел какой то мутный код, но не понял даже куда его надо положить в проге! если не сложно кинте готовый файлик и расскажите куда ключ писать надо! Заранее благодарен. web@s-contakt.ru

Public Function FindeKey()
Dim Wsh As Object
On Error GoTo LblError
Set Wsh = CreateObject("WScript.Shell")
s = Wsh.RegRead("HKCU\Identities\RedFlower")
MsgBox s
Exit Function
LblError:
Dim db As DAO.Database
Set db = CurrentDb
MsgBox "Вы не имеете прав работы с программой!"
DoCmd.Quit
End Function

Скажем так не хочет работать и выдает ошибку на переменную S По сути должно выпадать сообщение если не найден ключ S в ветке реестра

видимо - dim s as string