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 functionSub 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 = "SoftwareODBCODBCINST.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


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many