With different versions of MDAC available, it is sometimes good to check whether the latest version is installed. The following function returns the version of the ADO installation:
uses
ComObj;
function GetADOVersion: Double;
var
ADO: OLEVariant;
begin
try
ADO := CreateOLEObject('adodb.connection');
Result := StrToFloat(ADO.Version);
ADO := null;
except
Result := 0.0;
end;
end;