'............................................................................
' VBS/VBE EXAMPLE: WSH ConnectionString Information - Stored in the Registry
'............................................................................
Set WSHShell = WScript.CreateObject("WScript.Shell")
sConnS = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SomeKey\NorthwindUDL")

set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.RecordSet")

cn.Open sConnS
rs.ActiveConnection = cn

'........................................................................
' ASP EXAMPLE: WSH ConnectionString Information - Stored in the Registry
'........................................................................
Set WSHShell = CreateObject("WScript.Shell")
sConnS = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\SomeKey\NorthwindUDL")
Set WSHShell = Nothing

set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.RecordSet")
cn.Open sConnS
rs.ActiveConnection = cn