GetODBCDriverInfo - Get information about a specific ODBC driver

Const HKEY_LOCAL_MACHINE = &H80000002

' Return information about an ODBC driver
'
' The 1st argument must be an ODBC driver name,
' as returned by the GetODBCDrivers function
' Not all drivers return the Timeout value
'
' Requires the GetRegistryValue function

Sub GetODBCDriverInfo(ByVal ODBCDriver As String, FileName As String, _
    ODBCVersion As String, Optional Timeout As String)
    Dim keyName As String
    
    ' this is the key that contains all the info
    keyName = "Software\ODBC\ODBCINST.INI\" & ODBCDriver
    
    ' retrieve the values
    FileName = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "Driver", "")
    ODBCVersion = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "DriverODBCVer", _
        "")
    Timeout = GetRegistryValue(HKEY_LOCAL_MACHINE, keyName, "CPTimeout", "")
End Sub