Sorry, getting used to using code tags
Private Sub cbonewEmail_GotFocus()
Me.cbonewEmail.Requery
End Sub
Private Sub cbonewEmail_NotInList(NewData As String, Response As Integer)
Response = AddNewToList(NewData, "tblcontacts", "Other", "Email List")
End Sub
Private Sub...