请问怎样检测系统所装DAO的版本？(100分)

？

用ado吧，也挺快的。

ado还支持线程同步，使用也挺简单的

注册表

procedure TForm1.Button1Click(Sender: TObject);
var
r : TRegistry;
s : string;
begin
r := TRegistry.create;
try
with r do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey( '/ADODB.Connection/CurVer', false );
s := ReadString('');
if s <> '' then
ShowMessage( s ) // 取具体版本号，则可分析该字符串
else
ShowMessage( 'Not installed' );
CloseKey;
end;
finally
r.free;
end;
end;

楼上的,是DAO,不是ADO.
来自：DragonPC_???, 时间：2001-9-26 9:04:00, ID：645205
HKEY_CLASSES_ROOT/DAO.DBEngine.35
HKEY_CLASSES_ROOT/DAO.DBEngine.36

或者你试试
var
bVersion35, bVersion36 : boolean ;
begin
try
CreateOLEObject("DAO.DBEngine.35") ;
bVersion35 := true ;
except
bVersion35 := false ;
end;

try
CreateOLEObject("DAO.DBEngine.36") ;
bVersion36 := true ;
except
bVersion36 := false ;
end;
end;