如何避免连接字符串异常的情况

如何处理连接字符串错误的情况
算法实现遍历数据库中的表
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