How do you UPDATE SQL Table from Excel Table using VBA JOIN

I've read through postStackoverflow 14814098 and would like to know (2) things.

1. Can you update MS SQL Tables from Excel by creating a string with an Update statement that refers to an Excel Table. Below is a rough idea in VBA of what I mean.

2. If you add the SQL Statement to the server, how do you call it from Excel using VBA?

Background: I'm attempting to pull a table from the MS SQL Server, Load results into Excel Sheet as an Excel Table where I can exit the sheet and Update all changes back to the server table.

• I set up a class and worksheet module to update the server after individual cells are changed in the worksheet, but now I would like to update all the changes at once. Is there a better way to go about getting the result?

Sub UpdateSqlWithExcelTableJoin()
    
    Dim cmd    As ADODB.Command
    Dim strSQL As String

    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "DRIVER=SQL Server;SERVER=MYSERVERNAME;DATABASE=MYDATABASENAME;Trusted_Connection=Yes"
    Set cmd = New ADODB.Command
    
    cnn.Open
    cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdText
    
    Call setString2

    cmd.CommandText = strSQLUpdate
    cmd.Execute
    cnn.Close

    Set cmd = Nothing
    Set cnn = Nothing
    
End Sub

    Sub setString2()
strSQLUpdate = _
    "Update test.profile " & vbNewLine & _
    "Set test.profile.Field = ExcelTable.Field " & vbNewLine & _
    "    test.profile.Profile_Name = ExcelTable.Profile_Name " & vbNewLine & _
    "From test.profile " & vbNewLine & _
    "INNER JOIN OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Excel 8.0;Database=C:\Users\USERNAME\ONEDRIVE - FOLDER\SQL_VBA_b.xlsm;', 'Select ID, Profile_Name' " & vbNewLine & _
    "From '[Sheet3$]') As ExcelTable " & vbNewLine & _
    "ON test.profile.ID = ExcelTable.ID " & vbNewLine & _
    "WHERE (test.profile.ID = ExcelTable.ID " & vbNewLine & _
    "    AND test.profile.Profile_Name = ExcelTable.Profile_Name)"
    
Debug.Print strSQLUpdate
End Sub