Private Sub nationality_NotInList(NewData As String, Response As Integer)

If Not IsNull(nationality) Then
   Response = False
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Nationality ")
With rst
.AddNew
!NationalityM = Trim(NewData)
Me.nationality = !id
nationality.RowSource = nationality.RowSource
.Update
.Close
End With

Set rst = Nothing
End If
End Sub

Private Sub Category_list_NotInList(NewData As String, Response As Integer)
    Dim a As DAO.RecordSet
    Dim r As Long
    Response = False
    Set a = CurrentDb.OpenRecordset("__temp_NAME_BOOK")
    With a
    .AddNew
    !Name = Trim(NewData)
    !ID =  8 
    r = !ID
    Me!Category_list.RowSource = Me!Category_list.RowSource
    .Update

End With

Me!Category_list = Null
Me!Code_List.SetFocus
Me!Category_list = r
a.Close
End Sub