Public Function Get_Driver() As String

Const HKEY_LOCAL_MACHINE = &H80000002
Dim l_Registry As Object
Dim l_RegStr As Variant
Dim l_RegArr As Variant
Dim l_RegValue As Variant

Get_Driver = ""
Set l_Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
l_Registry.enumvalues HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers", l_RegStr, l_RegArr

For Each l_RegValue In l_RegStr
    If InStr(1, l_RegValue, "MySQL ODBC", vbTextCompare) > 0 Then
        Get_Driver = l_RegValue
        Exit For
    End If
Next
Set l_Registry = Nothing

End Function