try
conADOC.Connected := false;
conADOC.ConnectionString := 'FILE NAME='+ExtractFilePath(ParamStr(0))+'数据库连结测试.udl';
conADOC.Provider := ExtractFilePath(ParamStr(0))+'\数据库连结测试.udl';
conADOC.Connected := true;
// ShowMessage(adoc.DefaultDatabase);
except
// showmessage('连接失败,请重新配置数据库连接测试.udl文件');
EXIT;
end;