Private Sub VisitorName_NotInList(NewData As String, Response As Integer)
Response = MsgBox("This visitor has never signed in before, Would you like to create a new profile?", vbYesNo + vbQuestion, "Client Prompt")
If Response = vbYes Then
DoCmd.OpenForm "frmvisitorinfo", , , , acAdd...