急急，高难问题！！！！！！！！！！！！！！！(0分)

........................
begin//动态连接数据库
ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;'+
'Data Source='+strpathdate+ //strpathdate是数据库的动态路径
';Mode=Share Deny None;Extended Properties="";'+
'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+
'Jet OLEDBatabase Password="";'+
'Jet OLEDB:Engine Type=5;'+
'Jet OLEDBatabase Locking Mode=0;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDBon''t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False';
Try
begin
AdoConnection1.Open;
ADOtable1.Active:=True;
end;
except
on E:EDatabaseError do
begin
ShowMessage('连接出错');
close;
end;
end;
end;
.................
请问on E:EDatabaseError do 这句是表示那种错误.
因为我的数据库是动态连接，如果我选择其他的数据库为什么他不显示’连接错误‘
也就是说这段程序中的except下面的没有执行。请赐教

ConnectionString不正确
请查看以前的帖子

把这句ShowMessage('连接出错');
改成ShowMessage('连接出错:'+e.message);
要不那个on E:EDatabaseError do没有任何意义。