Sub UpdateFrom()
Dim mySQL As String, myConnect As Object
Dim DataRange As String, strAddress As String, Target, wbTarget As Workbook
Dim FSO As FileDialog
    Set FSO = Application.FileDialog(msoFileDialogFilePicker)
    
    With FSO
        .AllowMultiSelect = False
        .Show
    End With
    Set wbTarget = GetObject(FSO.SelectedItems(1))
    strAddress = Replace(ThisWorkbook.Sheets(1).Cells(1, 1).CurrentRegion.Address, "$", "")
    DataRange = "[" & ThisWorkbook.Sheets(1).Name & "$" & strAddress & "]"
    Set myConnect = CreateObject("ADODB.Connection")
    myConnect.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & wbTarget.FullName & ";" & _
           "Extended Properties=""Excel 12.0;HDR=YES"""
    Target = "[" & wbTarget.Sheets(1).Name & "$" & Replace(wbTarget.Sheets(1).Cells(1, 1).CurrentRegion.Address, "$", "") & "]"
    mySQL = "UPDATE " & Target & " SET [Имя]=" & DataRange & ".[Имя] WHERE [Имя] LIKE 'Иванов%'"
    myConnect.Execute mySQL
End Sub

UPDATE [Sheet1$A1:B4] SET [Имя]=[Лист1$A1:B4].[Имя] WHERE [Имя] LIKE 'Иванов 2222%'