Atualizar Cbox

Bom dia.

Tenho uma aplicação de controle de Clientes onde estes são crianças.

Neste Form tenho um Subform (Sfrm_Respon) onde pesquiso em Resp_cd_Codigo (Cbox) os nomes dos responsáveis, caso não existe (NotInList), Abre um form (Pop_CadRespon) cadastrar onde registro é salvo na tabela Tb_Respon. Até ai tudo está funcionando perfeito.

Meu problema é que quando fecho o form Pop_CadRespon a Cbox Resp_cd_Codigo, não atualiza com o registro novo. Como resolver isto?

Segue abaixo o código que estou utilizando!

Private Sub Resp_cd_Codigo_NotInList(newdata As String, Response As Integer)
Response = acDataErrContinue
Call Acct_Name_Not_Found(newdata)
End Sub

Public Sub Acct_Name_Not_Found(newdata)
Dim ans As Variant
' new acct
gbl_exit_name = False

ans = MsgBox("Responsável  " & newdata & " não localizado, deseja cadastrá-lo?", vbYesNo + vbExclamation, "Na Brinca")

If ans = vbNo Then
Response = acDataErrContinue
MsgBox "Selecione o nome na relação.", vbExclamation + vbOKOnly, "Na Brinca"
GoTo exit_it
End If

DoCmd.OpenForm ("Pop_CadRespon")
Form_Pop_CadRespon.Resp_tx_Nome = newdata
Response = acDataErrAdded
exit_it:

End Sub

Bom dia, eu utilizo dessa forma:

Código:

On Error GoTo CboCliente_NotInList_Err

DoCmd.SetWarnings False ' Desativa avisos do Access
If MsgBox("O cliente " & UCase(NewData) & " não existe, deseja cadastrar ?", vbQuestion + vbYesNo, "Aviso") = vbNo Then
Response = acDataErrContinue ' Volta ao controle
GoTo CboCliente_NotInList_End
End If
DoCmd.OpenForm "frmExemplo", acNormal, , , acFormAdd, acDialog, UCase(NewData) ' Abre o form para incluir
Response = acDataErrAdded ' <<= Faz a inclusão na combo e atualiza

CboCliente_NotInList_End:
DoCmd.SetWarnings False ' Ativa os avisos do Access
Me!cboCliente.SetFocus ' Volta o foco
Me.cboCliente = ""
Exit Sub

CboCliente_NotInList_Err:
'MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
Resume CboCliente_NotInList_End

acredito que se você colocar assim atualiza a lista do campo combobox

nomedocampodacombo.requery