Sub Test()
Dim rsCon       As ADODB.Connection
Dim rsData      As ADODB.Recordset
Dim rsComm      As ADODB.Command

Dim TableName   As String
Dim szConnect   As String
Dim szSql       As String

Dim Rng         As Range
Dim cell        As Range

Dim LastRow     As Long

TableName = "Balance"
If Val(Application.Version) < 12 Then
    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;WSS;" & _
                 "IMEX=2;" & _
                 "RetrieveIds=Yes;" & _
                 "DATABASE=" & Database & ";" & _
                 "LIST=" & Balance & ";"
Else
    szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;" & _
                 "IMEX=2;" & _
                 "RetrieveIds=Yes;" & _
                 "DATABASE=" & Database & ";" & _
                 "LIST=" & Balance & ";"
End If

Set rsCon = New ADODB.Connection
Set rsComm = New ADODB.Command

LastRow = wksUpdateManagers.Range("A" & wksUpdateManagers.Rows.Count).End(xlUp).Row

Set Rng = wksUpdateManagers.Range("F9:F" & LastRow)

For Each cell In Rng
    szSql = "Update " & TableName & " Set SuperVisorName = " & cell.Offset(0, 1).Value & " where FullName = " & cell.Value
'szsql = Update Balance set SuperVisorName = 9 where FullName = 1
'where 9 and 1 are IDs from UserInfo table on SharePoint
    
    rsCon.ConnectionTimeout = 30 'this is not working at all in my case..
    rsCon.Mode = adModeReadWrite
    
    rsCon.Open (szConnect)
    rsCon.CursorLocation = adUseClient
    
    With rsComm
       Set .ActiveConnection = rsCon
       .CommandText = szSql
       .CommandTimeout = 30
        .Execute 'Here is the line where Excel crashes
'when I used the recordset the excel crashes at line:
'rst.fields("PersonField").value = 5
'where 5 is an ID of person in UserInfo table on SharePoint.
'when I swithed cursor location from adUseServer from adUseClient then Excel crashes on line:
'rst.update

    End With
            
    rsCon.Close
Next cell
    
    rsData.Close
    rsCon.Close

    Set rsData = Nothing
    Set rsCon = Nothing

End Sub