Here is my code:
Private Sub Combo35_NotInList(NewData As String, Response As Integer)
Dim db As Database, rs As Recordset
Dim strMsg As String
strMsg = "'" & NewData & "' is not an available Social Security Number."
strMsg = strMsg & " Click Yes to Add or No to re-type it."...