{codecitation class="brush: pascal; gutter: false;" width="600px"}

function GetADOVersion: Double;

var

ADO: OLEVariant;

begin

try

ADO:= CreateOLEObject ('adodb.connection');

Result:= StrToFloat (ADO.Version);

ADO:= Null;

except

Result:= 0.0;

end;

end;

// To use this function try something like:

procedure TForm1.Button1Click (Sender: TObject);

const

ADOVersionNeeded = 2.5;

begin

if GetADOVersion then

ShowMessage ('Need to install MDAC version 2.7')

else

ShowMessage (Format ('ADO Version %n, is OK', [GetADOVersion]));

end;

{/codecitation}