VBA code to change registry value of existing DSN

[Alan]

Hello,

I need VBA code to change the DBQ string in an existing DSN.

I am getting external data into Excel through a third party ODBC driver,
and would like to emulate a DSN-less connection to the data by simply
changing the DBQ string of an existing DSN. It's not really DSN-less,
but the user will never know, and it would allow the user to get to
external data residing in different folders without the mess of creating
DSNs.

I have accomplished the DBQ string change manually using regedit, and
successfully brought data into Excel from different folders using the
same DSN.

I want to pass the DBQ string (path) from a variable that captures the
string from the user's choice of filename through the GetOpenFileName
dialog. I already have this piece complete.

The DSN is in HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\
The DSN is: AnyEstimate-DoNotDelete

Current DBQ string is: K:\Proposal\123.0403\ESTIMATR

I am looking for a short, neat solution that will pass a different
string from a VBA variable to the registry.

Any help is much appreciated. Thanks in advance.

 

[Tom Ogilvy]

http://tinyurl.com/9pfoo

should get you some sample code.