Access - Alguien mo podria ayudar a solucionar esto

alguien me podria ayudar a arreglar mi boton guardar

Private Sub Cmd_Guardar_Click()

If IsNull(TxtIdentidad) Or IsNull(TxtNombre) _

    Or IsNull(TxtNacimiento) Or IsNull(TxtDireccion) Or IsNull(TxtTelefono_Encargado) Or IsNull(TxtNombrePadre) Or IsNull(TxtEdad) Then

        MsgBox "Debe completar todos los campos"

    Exit Sub

End If

Dim talumnos As Recordset

    Set talumnos = CurrentDb.OpenRecordset("Alumnos")

    talumnos.AddNew

    talumnos.Value !Numero_Identidad.Value = TxtIdentidad

    talumnos.Value !Nombre.Value = TxtNombre

   talumnos.Value !Fecha_Nacimiento.Value = TxtNacimiento

    talumnos.Value !Direccion.Value = TxtDireccion

    talumnos.Value !telefono.Value = TxtTelefono_Encargado

    talumnos.Value !Nombre_Padre.Value = TxtNombrePadre

    talumnos.Value !edad.Value = TxtEdad

    talumnos.Update

    MsgBox "Registro Guardado correctamente", vbInformation, "Alumnos"

Dim talumnos As Recordset

    Set talumnos = CurrentDb.OpenRecordset("Alumnos")

    talumnos.AddNew

    talumnos!Numero_Identidad = Me.TxtIdentidad

    talumnos!Nombre = Me.TxtNombre

    talumnos!Fecha_Nacimiento = Me.TxtNacimiento

    talumnos!Direccion = Me.TxtDireccion

    talumnos!telefono = Me.TxtTelefono_Encargado

    talumnos!Nombre_Padre = Me.TxtNombrePadre

    talumnos!edad = Me.TxtEdad

    talumnos.Update

    talumnos.Close

    Set talumnos = Nothing

    MsgBox "Registro Guardado correctamente", vbInformation, "Alumnos"

Dim talumnos As Recordset

    Set talumnos = CurrentDb.OpenRecordset("Alumnos")

    With talumnos

        .AddNew

        !Numero_Identidad = Me.TxtIdentidad

        !Nombre = Me.TxtNombre

        !Fecha_Nacimiento = Me.TxtNacimiento

        !Direccion = Me.TxtDireccion

        !telefono = Me.TxtTelefono_Encargado

        !Nombre_Padre = Me.TxtNombrePadre

        !edad = Me.TxtEdad

        .Update

        .Close

    End With

    Set talumnos = Nothing

    MsgBox "Registro Guardado correctamente", vbInformation, "Alumnos"

End Sub