Not in list Popup box

[marrett]

Hi I am trying to get rid of the not in list pop up box. i have written the following code to handle not in this but at the end of the code not matter what I seems to do the Messege box Not In list shows up.

Me!Compid = Null
StrInput = InputBox("Enter a New Company Name")

Comp.AddNew
Comp!Company = StrInput
Comp.Update

Comp.MoveLast

DoCmd.Requery ("Compid")

Me!Compid = Comp!CompanyID
Comp.Close


Please Help I am going crazy! Thanks, Maria