关于ado连接数据库的一个问题.可能比较简单

begin
if FileExists('config.ini') then
begin
  f:=ExtractFilePath(paramstr(0))+'config.ini';
  config:=Tinifile.Create(f);
  s1:= config.ReadString('seting','server','');////
  s2:= config.ReadString('seting','data','');////   here
  s3:= config.ReadString('seting','user','');////
  s4:= config.ReadString('seting','password','');////
  self.ADOC.ConnectionString:='Provider=SQLOLEDB.1;Password='+ s4 + ';Persist Security Info=True;User ID=' + s3  + ';Initial Catalog=' + s2  + ';Data Source=' + s1;
  try
  self.ADOC.Connected:=true;
  except
  self.ADOC.Connected:=false;
  showmessage('数据库连接失败,请与管理员联系!');
  end;
end
 else
  //frm_datasetup.show;
  showmessage('配置文件丢失,请与管理员联系!');
end;
---------------------------
问题在于ini文件中的信息正确,则没问题.
如果有错误则程序好象处在死机状态(应该是在尝试连接数据库.)..要好.....久才能出来错误提示///这
要怎么做才能将这个容错能力加上?
有么有谁有做好的完整的考虑周全的关于ado连接sql数据库的模块..发一份给俺啊[email protected]分数不够再加拉