The following code returns spaces for both rServer and rDb
regApp = "app1"
regString = "setting1"

The server registory has values set for ServerName and DataBaseName in registry

HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ServerName="MainServer"

DataBaseName in the
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ServerName="MainDB"

rServer = (GetSetting(regApp, regString, "ServerName", ""))
rDb = (GetSetting(regApp, regString, "DataBaseName", ""))


Can anybody show me what I need to do to get this to work, if at all it can be done?