服务程序中 ADOConnection 无法连接数据库

请教个大神，我问一个菜鸟问题， Delphi6 的 ，用下面的函数连接 SQL 2008 的数据库，在桌面程序中一切正常，同样的入口条件在服务中返回'系统数据库连接失败1' ，查了半天找不到问题，不知为何。 函数代码如下，敬请赐教。
我的操作系统 XP , 服务器操作系统  Server 2003 。此函数仅负责连接。function ljsjk(ADOConnection:TADOConnection;ss:string):string;
var
  s0:string;
begin
  //连接数据库系统操作
  s0:='';
  ADOConnection.Connected:=false;
  ADOConnection.ConnectionString:=ss;
  ADOConnection.CursorLocation:=clUseClient;
  try
    ADOConnection.Connected:=true;
  except
    s0:='系统数据库连接失败1';
  end;
  if s0='' then
    if not(ADOConnection.Connected) then
      s0:='系统数据库连接失败2';
  ljsjk:=s0;
end;