New lookup value not showing up until main form is closed and reopened...

I have a subform (frmMMSongComposer) located in the footer of another subform  (subfrmSongs) which is a continuous form located on the main form (frmTitles).

Subform frmMMSongComposer is based on a query qryFRMMMSongsComposers.  The form frmMMSongComposer contains a combo box that when selected pulls up a list of composers sorted by ComposerLastName, ComposerFirstName.  The not in list is set to yes.  I have written code for the not in list event that pulls up the form frmMaintComposers where I add the new name and then close the form by clicking the "x" in the upper right corner of the dialog box BUT when I close the form the new Composer is not added to the table tblComposers and the qryFRMMMSongsComposers is not update UNLESS I close the main form (frmTitles) and then reopen it.

I have tried all weekend to get this to work by requerying this and refreshing that but nothing works.  

The code for the not in list event is:

Private Function IsLoaded(strName As String, Optional lngType As AcObjectType = acForm) As Boolean
    IsLoaded = SysCmd(acSysCmdGetObjectState, lngType, strName) <> 0
End Function


Private Sub ComposerID_NotInList(NewData As String, Response As Integer)

Dim mbrResponse As VbMsgBoxResult
Dim strMsg As String
strMsg = NewData & " Composer is not in the database.  " & "Would you like to add a new Composer?"
mbrResponse = MsgBox(strMsg, vbYesNo + vbQuestion, "Invalid entry")

Select Case mbrResponse

    Case vbYes
   
        DoCmd.OpenForm "frmMaintComposers", DataMode:=acFormAdd, WindowMode:=acDialog, OpenArgs:=NewData

        If IsLoaded("frmMaintComposers") Then
              Response = acDataErrAdded
              DoCmd.Close acForm, "frmMaintComposers"
        Else
              Response = acDataErrContinue
        End If
   
    Case vbNo
   
        Response = acDataErrContinue

End Select
End Sub


Private Sub Form_Load()

If Len(Me.OpenArgs) > 0 Then
   Me.ComposerID = Me.OpenArgs
End If
End Sub



Private Sub cmdCancel_Click()
   
    Me.Undo
    DoCmd.Close acForm, Me.Name
End Sub


Private Sub cmdOK_Click()
     Me.Visible = False
End Sub