ник: gnus
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 в ветке реестра