Public Sub Dop()

    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
        
    Server_Name = "s-kv-cent-s01" ' Enter your server name here
    Database_Name = "AUTO" ' Enter your  database name here
    User_ID = "" ' enter your user ID here
    Password = "" ' Enter your password here
    texSQL = "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"
       
    Dim RS As Object
    Set RS = CreateObject("ADODB.Recordset")
    
    ttt = "SELECT fil.Region, fil.City, fil.File_N, fil.Filial, fil.Filial_ID, cat.Category, nap.Naprav, own.Owner, doptip.Tip, obor.Polka1 +' '+ obor.Polka2 as Name, obor.Polka1, obor.Polka2, obor.Width, obor.Depth, fil.Format "
    ttt = ttt + "FROM Auto_Oborudovan as obor INNER JOIN Act_Vers as actual ON actual.Ent_Name = CAST (obor.Filial_ID AS varchar) +'_'+ obor.Ent_Name AND actual.Data_Time = obor.Data_Time INNER JOIN Auto_Filial as fil ON obor.Filial_ID = fil.Filial_ID LEFT JOIN Auto_Mesta_ID_Tip as doptip ON obor.Vid_Obor = doptip.Tip_Acad "
    ttt = ttt + "LEFT JOIN Auto_Dop as dop ON obor.Width = dop.Width_PTZ AND obor.Depth = dop.Depth_PTZ AND obor.Polka1 +' '+ obor.Polka2 = dop.Name AND doptip.ID_Tip = dop.ID_Tip left JOIN TID_Category as cat ON dop.ID_Category = cat.ID_Category left JOIN Type_ID_Naprav as nap ON cat.ID_Naprav = nap.ID_Naprav left JOIN Type_ID_Owner as own ON dop.ID_Owner = own.ID_Owner "
    ttt = ttt + "WHERE obor.Comment = 'Dop' AND fil.filial LIKE '&#209;%' AND  obor.Polka1 +' '+ obor.Polka2 <> ' ' ORDER BY fil.Filial_ID, obor.Polka1 +' '+ obor.Polka2"
    
   Application.StatusBar = "Подключение к базе данных"
    
   RS.Open ttt, texSQL, , , adCmdText
       
    im wBook As Excel.Workbook
    Set wBook = Workbooks.Add 
''''''''''''''''''''''''''''''''''''''''''