strSQL = "UPDATE dbo.Table_1 SET dbo.Table_1.NN = '5',  dbo.Table_1.Nvagon = '55'"

strSQL = "UPDATE dbo.Table_1 SET dbo.Table_1.NN = src.F1, dbo.Table_1.Nvagon = src.F2"

strSQL = "UPDATE dbo.Table_1 SET dbo.Table_1.NN = src.NN, dbo.Table_1.Nvagon = src.Nvagon"

"SELECT * FROM `'1$'`, `'2$'`"

Private Sub CommandButton1_Click()
Dim oControl As Control
For Each oControl In Me.Controls
If TypeOf oControl Is MSForms.Label Then
if oControl.name = "Label" & i then oControl.caption = "rrrrr"
end if
i = i + 1
Next oControl
End Sub

Sheets("2").Range("A1").Select

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"><logFileName>error017280_01.xml</logFileName><summary>Знайдені помилки у файлі ''C:\Users\'</summary><removedRecords summary="Список видалених записів:"><removedRecord>Видалені записи: Сортування з /xl/worksheets/sheet14.xml частини</removedRecord></removedRecords></recoveryLog>

            With .Sort
            .SortFields.Add Key:=Range(Cells(1, 4), Cells(1, Application.WorksheetFunction.Match("Âñã", Range("D1:AX1"), False))), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range(Cells(1, 4), Cells(Cells(Rows.Count, 2).End(xlUp).Row, Application.WorksheetFunction.Match("Âñã", Range("D1:AX1"), False)))
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
            End With

SELECT 'Лист$'.*

 v = Application.WorksheetFunction.SumProduct(--(Application.WorksheetFunction.CountIf(Sheets("5").Range("H4:H" & lr), Range("raw_stuff")) > 0), --(Range("raw_stuff2") = "text"))