EnumODBC

Function GetODBCDrivers() As Collection
Dim res As Collection
Dim values As Variant

' initialize the result

Set GetODBCDrivers = New Collection

' the names of all the ODBC drivers are kept as values

' under a registry key

' the EnumRegistryValue returns a collection

For Each values In EnumRegistryValues(HKEY_LOCAL_MACHINE, _
"Software\ODBC\ODBCINST.INI\ODBC Drivers")
' each element is a two-item array:

' values(0) is the name, values(1) is the data

If StrComp(values(1), "Installed", 1) = 0 Then
' if installed, add to the result collection

GetODBCDrivers.Add values(0), values(0)
End If
Next

End Function