GetSetting Problem Help Please!

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?

Sorry the above post was incorrectly typed.


The registry settings should have read

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

HKEY_CURRENT_USER\Software\VB and VBA Program Settings\app1\setting1\DataBaseName="MainDB"

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

rServer and rDb still return "" ?