你试试:
ADOConnection1.Close;
adoconnection1.ConnectionString:=PromptDataSource(Handle,adoconnection1.ConnectionString);
with ADOConnection1 do
begin
Server :=Properties['Data Source'].Value;
DB :=Properties['Initial Catalog'].Value;
User :=Properties['User ID'].Value;
Password :=Properties['Password'].Value;
end;