How to open Data Sources(ODBC) & check value in the System DSN

it is easier and quicker to simply recreate the DSN without checking its existence or current value:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171146&FR=1
http://support.microsoft.com/default.aspx?scid=kb;en-us;184608&Product=vb6&FR=1

Im trying to do automatic testing to see if these values exist.  How will I do this please?

as I told, it is much easier and faster to re-create the DSN.

See https://www.experts-exchange.com/questions/20493768/Checking-ODBC-DSN.html

Sorry, but I don't understand why I have to re-create the DSN?

Because it takes shorter then starting to validate it the DSN is existing and if it is still valid.

How many points do you want to code this please?

Thanks for your help, but this is not what I was looking for.  The resoultion is below:

'Navigate to ORA_W2K server name & store this location as a variable
Const ODBC_VAL = "HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ORA_W2K\servername"

Dim strODBCVal As String
'Find the value of the server name
strODBCVal = RegRead(ODBC_VAL)

'If ORA_W2K or CLT2 does not exist then record bug (test failed)
If strODBCVal <> "CLT2" Then
    oErrLog.LogError Err.Number, Err.Description, Err.Source, "ODBC Settings Test 14 - Incorrect ODBC Settings "
    Err.Clear
End If