Como actualizar los registros de una tabla en SQL Server desde VBA ACCESS

Quiero actualizar una tabla de SQL Server desde VBA ACCESS y me da error a la hora de modificar los datos de la tabla. Leer si me permite pero no modificarlos. Adjunto el error y el código que estoy usando para la conexión.

Dim cnn As ADODB.Connection, rs As ADODB.Recordset
Dim StringCnn As String

StringCnn = "Driver={SQL Server};Server=F2502216;Database=Control_Injection; Trusted_Connection=Yes;"

Set cnn = New ADODB.Connection
cnn.Open (StringCnn)

Set rs = cnn.Execute("SELECT * FROM [Table_Pruebas];")

Do Until rs.EOF
  DoEvents
  Debug.Print rs.Fields(0)
  With rs
      .AddNew
      ![a] = "hOLA"
     .Update
  End With
Loop

rs.Close
Set rs = Nothing
cnn.Close