如何处理连接字符串错误的情况
算法实现遍历数据库中的表
filename :=OpenDialog1.FileName ;
onenode := treeview1.items.add(nil,filename);
ADOconnection1.Close ;
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; '+
'Data Source= '+ filename + ';Persist Security Info=False ';
ADOConnection1.Open ;
SL := TStringList.Create;
try
ADOConnection1.GetTableNames(SL, False);
for index := 0 to (SL.Count - 1) do begin
treeview1.items.addchild(onenode,SL[index]);
end;
finally
SL.Free;
end;


错误提示 "不是合法的数据库格式. "
请问如何屏蔽.或者给出友好的提示


[解决办法]
try
ADOConnection1.Open ;
................
except
showmessage( '友好提示 ');
end;

设置一下Opendialog的Filter属性　让它只能打开你需要的文件　比如ACESS是*.MDB