Dim wsho, mdacver
Set wsho = CreateObject("Wscript.Shell")

mdacver = wsho.RegRead("HKLM\Software\Microsoft\DataAccess\FullInstallVer")
MsgBox "MDAC version " & mdacver

Set wsho = nothing
Set mdacver = nothing