请帮手，数据连接的简单问题，在线等……

Question

我用一个数据模块DM的方法程序联接现有数据库，具体如下：
procedure TDm.DataModuleCreate(Sender: TObject);
var
  Database,Databaseserver,user,Password,FileName:String;
begin
  FileName:=ExtractFilePath(application.ExeName)+'DataLink.ini';
  DataLink:=TIniFile.Create(FileName);
  DataBaseServer:=DataLink.ReadString('connectionstring','DataBaseServer',
    'TS');
  DataBase:=DataLink.ReadString('connectionstring','DataBase',
    'TS');
  User:=DataLink.ReadString('connectionstring','user',
    'TS');
  Password:=DataLink.ReadString('connectionstring','Password',
    'TS');
  Adoc.ConnectionString:='Provider=SQLOLEDB.1;Password='+password
  +';Persist Security Info=True;User ID='+user+';Initial Catalog='+
  database+';Data Source='+DataBaseServer;  ADOC.open;
end;
end;Database,Databaseserver,user,Password,FileName的值都是正确的，但运行时提示数据库联接上不，请问为什么啊？
有没有更好的数据库联接方法，能详细说一下吗？TKS！

Answer 1

应该没问题，我试过
请再查Database,Databaseserver,user,Password,FileName的值是否正确。