使用函数连接SQL数据库

//AServerName,   ADataName,   AUser,   Apass分别可以为服务器的IP地址\数据库名\用户名\密码
function   getDataConnection(AServerName,   ADataName,   AUser,   Apass:string);
begin
    Result   :=   'Provider=SQLOLEDB.1;Password= '   +   Apass  
                        +   ';Persist   Security   Info=True;User   ID= '   +   AUser  
                        +   ';Initial   Catalog= '   +   ADataName  
                        +   ';Data   Source= '   +   AServerName;
end;
调用如下:
ADOConnection1.ConnectionString   :=   getDataConnection(ServerName,   DataName,   User,   pass);
ADOQuery1.connection   :=   ADOConnection1;