Database Problems

I'm having trouble with some code in my database application thats for my school project. I keep getting "This action was canceled by an associated object".. Heres the code in question.... ===== Private Sub Command4_Click() Dim a As Integer If (OKtoadd = True) Then With [login to view URL] .AddNew !ProductNum = IIf(Text1 = "", "N/A", Text1) !OrderQuantity = IIf(Text2 = "", "N/A", Text2) !Price = IIf(Text3 = "", "N/A", Text3) !ProductDescription = IIf(Text4 = "", "N/A", Text4) .Update End With OKtoadd = False [login to view URL] = False [login to view URL] = True [login to view URL] = True a = MsgBox("Record has been added sucessfully!", vbInformation + vbOKOnly, [login to view URL]) ElseIf (OKtochange = True) Then [login to view URL]!ProductNum = IIf(Text1 = "", "N/A", Text1) [login to view URL]!OrderQuantity = IIf(Text2 = "", "N/A", Text2) [login to view URL]!Price = IIf(Text3 = "", "N/A", Text3) [login to view URL]!ProductDescription = IIf(Text4 = "", "N/A", Text4) [login to view URL] OKtochange = False [login to view URL] = False [login to view URL] = True [login to view URL] = True a = MsgBox("Record has been updated sucessfully!", vbInformation + vbOKOnly, [login to view URL]) End If End Sub ====== I forgot to mention that I havnt any money to offer ## Deliverables Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Complete copyrights to all work purchased. ## Platform Windows XP