item não consta na lista

Tenho o frm Cadastra Nacionalidade
No frm onde cadastro os clientes coloquei um combox para adicionar nova nacionalidade se preciso for.
Em procedimento do evento esta :
Private Sub CodNacionalidade_NotInList(NewData As String, Response As Integer)
   Response = acDataErrContinue  ' Inibe msg padrão do Access.
   If MsgBox("Nacionalidade não cadastrada:  '" & NewData & "'" & vbCrLf _
       & "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
       DoCmd.OpenForm "Cadastra Nacionalidade", , , , acFormAdd, _
          acDialog, NewData
       ' A execução deste código fica interrompida aqui até o
       ' fechamento do formulário Cadastra Nacionalidade.
       CodNacionalidade = UCase(NewData)  ' Converte o texto para maiúsculas.
       Response = acDataErrAdded
   Else
       Response = acDataErrContinue
   End If
End Sub

Não estou conseguindo adicionar

Rosemberg

Private Sub CodNacionalidade_NotInList(NewData As String, Response As Integer)
Esta a meter o CodNacionalidade ?
Ou a nacionalidade