Not On List And After Update Conflict

I will try and describe my issues as best I can.
I have a NotOnList Event on a Combo box.


Dim strSQL As String
Dim i As Integer
Dim Msg As String

'Exit this sub if the combo box is cleared
If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr
Msg = Msg & "Do you want to add it?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Unknown Problem...")
If i = vbYes Then
strSQL = "Insert Into TroubleShootingGuideTBL([Problem]) values ('" & NewData & "')"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

This worked just fine until I added an AfterUpdate Event used for Cascading Combo Boxes.




On Error Resume Next
Problem.RowSource = "SELECT DISTINCT TroubleShootingGuideTBL.Problem " & _
"FROM TroubleShootingGuideTBL " & _
"WHERE TroubleShootingGuideTBL.SystemGroup = '" & SystemGroup.Value & "' " & _
"ORDER BY TroubleShootingGuideTBL.Problem;"

When I add something that is not current in the recordsource for the combo I still get the msg box:
"is not on the list, Do you want to add it? click yes or no.
I click yes and then I now get this error:
"The text you entered isn't an item in the list. Select an item from the list or enter text that matches one of the listed items"

As I said earlier the NotOnListEvent worked just great until I added the AfterUpdate Event. Any suggestions for me? Thanks in advance

The Source Table is updating but the Table the Form populates is not updating.

Please help. This is driving me crazy. and thanks!