Il campo [CognomeNome], lasciando perderere la considerazione di avere Nome+Cognome nello stesso campo..., è di titpo Testo e la sintassi richiede una formattazione diversa... oltretutto... ci sono gli APOSTROFI che fanno paura... prova così:
strSQL = "UPDATE Calendario Set [CognomeNome] = '" & REPLACE(Nome."'","''") & "' WHERE [IDCalendario] = " & IDCalendarioTab
DoCmd.RunSQL strSQL