Sub DWH(SHEET As String, query As String, bool As Boolean, rownum As Integer)
   
    Dim i As Long
    query = "INSERT INTO RU_KOSE.TASK_INFO_EXT(TASK_ID, IDOBJ) VALUES (18,63641852);"

   ' On Error GoTo ErrorHandler
    With Sheets(SHEET).QueryTables.Add( _
        connection:="OLEDB;Provider=OraOLEDB.Oracle.1;Password=RU_KOSE;Persist Security Info=True;User ID=RU_KOSE;Data Source=RSK", Destination:=Sheets(SHEET).Cells(rownum, 1))
        'provider = MSDAORA.1;user id=zhuk;password=Htfkbyr;Data Source=DWHRU", Destination:=Sheets("Query").Cells(i, 1))
        'conn, Destination:=sh.Cells(i, 1))
        'Sheets("Query").Cells(10, 1) = query
        
        .CommandText = query
        .Name = "Query1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .MaintainConnection = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=bool
'ErrorHandler:
            
    End With
   ' If i > 1 Then Sheets("Query").Rows(i).Delete shift:=xlUp
End Sub