Visual Basic - no edita, duplica datos

Hola a todos los colegas, tengo este código en el cual, según el botón que presione (nuevo registro, eliminar registro o editar registro) hace lo propio, sólo que con el boton 2 (que es editar) NO HACE lo que le ordeno, sino que al momento de guardar lo editado me duplica todos los campos del registro cuando lo que quiero es que solo guarde los cambios:

Sub guardardatos()
TablaAlumnos
With Rs
If modo = 0 Then Exit Sub
If modo = 1 Then .AddNew
If modo = 2 Then .Edit
!nombre = Text1.Text
!curp = Text2.Text
!fechanac = DTPicker1.Value
!lugardenac = Text3.Text
!nacionalidad = Combo1.Text
!grado = Combo2.Text
!Status = Combo3.Text
!tecnologia = Combo5.Text
If Option1.Value = True Then
!sexo = "M"
Else
!sexo = "F"
End If
!padreotutor = Text4.Text
!telefono = Text5.Text
!domicilio = Text6.Text
!lugar = Text7.Text
.Update
.Close
End With
Direccion = App.Path & "\est22.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Select Case Combo2.Text
Case "1° A", "1° B", "1° C", "1° D"
Tira = "Select * From primero"
Set Rs = BaseDatos.OpenRecordset(Tira)
Case "2° A", "2° B", "2° C", "2° D"
Tira = "Select * From segundo"
Set Rs = BaseDatos.OpenRecordset(Tira)
Case "3° A", "3° B", "3° C", "3° D"
Tira = "Select * From tercero"
Set Rs = BaseDatos.OpenRecordset(Tira)
End Select
With Rs
If modo = 0 Then Exit Sub
If modo = 1 Then .AddNew
If modo = 2 Then .Edit
!nombre = Text1.Text
!grado = Combo2.Text
!tecnologia = Combo5.Text
.Update
.Close
End With
TablaAlumnos
End Sub

Ojala alguien pueda decirme en qué parte tango mal el código para que pueda editar los datos y guardar solo una vez dicho registro.
Agradezco su apoyo de antemano.

se repiten y se guardan dos veces las variables, ve las secciones antes de update, se ve dos veces la palabra addnew y update

ok, Gracias amigo, voy a revisar tu sugerencia
Luego informo resultados.
Agradecido.
Paco