Devi fare un po' di attenzione ... ti consiglio di scrivere

SQL1 = "UPDATE Persone SET Nome=" & txtName.Text & ", " _
& " Cognome =" & txtSurname.Text _
& " WHERE ID = " & Key
Debug.Print SQL1

in modo da vedere sempre qual e' la stringa della query ed avere chiari gli eventuali problemi ...