//下面是检测ADO版本号的函数，稍叫修改，便可以
function ADOVersion: Extended; //ADO版本号
var
ADO: Variant;
eVersion: Extended;
begin
try
try
ADO := CreateOLEObject('adodb.connection');
except
//捕捉异常，便可以
;
end;
eVersion := StrToFloat(ADO.Version);
ADO := null;
Result := eVersion;
except
on E: Exception do begin
//ErrorMsg:我自己写的过程
ErrorMsg('本应用程序需要安装Microsoft MDAC Version 2.6或者更高版本！');
Exit;
end;
end;
end;
