Dim cn As String
            cn = "Provider=OLEDB;Data Source=server_name;Initial Catalog=db_name;Integrated Security=SSPI;Persist Security Info=false"
        Dim o As Object
 
        Set o = wb.Connections.Add2(Name:="db_server", _
                            Description:="Подключение к серверу", _
                            CommandText:=Array("SELECT * FROM dbo.name), _
                            lCmdType:=xlCmdSql, _
                            ConnectionString:=cn, _
                            CreateModelConnection:=True, _
                            ImportRelationships:=False)

        Dim cn As String
            cn = "OLEDB;Provider=SQLOLEDB;Data Source=server_name;Initial Catalog=db_name;Integrated Security=SSPI;Persist Security Info=false"
        Dim o As Object
 
        Set o = wb.Connections.Add2(Name:="db_server", _
                            Description:="Подключение к серверу", _
                            CommandText:="SELECT * FROM dbo.name", _
                            lCmdType:=xlCmdSql, _
                            ConnectionString:=cn, _
                            CreateModelConnection:=True, _
                            ImportRelationships:=False)