Hello,
I am using the following code in a combobox named authorizers. When I
enter a new name I get a message telling me an error occured. Any help
is most appreciated.

This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Sub Authorizer_NotInList(NewData As String, Response As
Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMsg As String

   strMsg = "'" & NewData & "' is not a authorized Name " & vbCrLf &
vbCrLf
   strMsg = strMsg & "Do you want to add the new Name to the current
List?"
   strMsg = strMsg & vbCrLf & vbCrLf & "Click Yes to link or No to re-
type it."

   If MsgBox(strMsg, vbQuestion + vbYesNo, "Add new name?") = vbNo
Then
       Response = acDataErrContinue
   Else
       Set db = CurrentDb
       Set rs = db.OpenRecordset("Authorizer", dbOpenDynaset)
       On Error Resume Next
       rs.AddNew
           rs!AEName = NewData
       rs.Update

       If Err Then
           MsgBox "An error occurred. Please try again."
           Response = acDataErrContinue
       Else
           Response = acDataErrAdded
       End If

   End If

rs.Close
Set rs = Nothing
Set db = Nothing
End Sub