Visual Basic - SABER SI MDAC INSTALADO

Como puedo saber si MDAC (Microsoft Data Access) esta instalado?
Ah, un saludo a Cecilia Colalongo, pues es alguien que sabe mucho.

Lo puedes saber consultando el valor: HKEY_CLASSES_ROOT\MDACVer.Version\CurVer que indica la última versión instalada.

Yo utilizo esta Sub para checar si la version 2.8 esta instalada, si no entonces la instala en modo silencioso y sin reiniciar. Oajal sirva

Private Sub ChecaADO()
Dim Respuesta
On Error Resume Next
Set objADO = CreateObject("adodb.connection")
On Error GoTo 0
If Err.Number <> 0 Or CDbl(objADO.Version) <> 2.8 Then
Respuesta = MsgBox("MDAC_TYP 2.8 no está instalado, presione aceptar para continuar con la instalación o cancelar para salir", vbOKCancel + vbExclamation, "Aviso")
'Esta instruccion invoca el MDAC en silent mode
'Shell App.Path & "\mdac_typ.exe /q /C:" & Chr(34) & "setup /QN1" & Chr(34), vbHide
If Respuesta = vbOK Then
cadena = App.Path & "\mdac_typ.exe /q /C:" & Chr(34) & "setup /QN1" & Chr(34)
llama cadena, vbHide
MDACDOne = True
ElseIf Respuesta = vbCancel Then
End
End If
End If
End Sub