Delphi ADO连接SQL Server

var
  s: string;
begin
  s := 'Provider=SQLOLEDB.1;User ID=%2:s;Password=%3:s;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=%1:s;Data Source=%0:s';
  s := Format(s, [AHost, ADb, AUser, APasswd]);
  FAdo.ConnectionString := s;
end;