[Resolvido]Inserir registros em três combos, que filtram entre si

Tenho um bd com 3 combos, quero inserir registros nos mesmos, inserir o seguinte codigo no 1º combo:

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

Dim sql As String
DoCmd.SetWarnings False
If MsgBox("Cliente não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar o Cliente " & _
UCase(NewData) & " agora?", vbYesNo, "Cadastro") = vbYes Then
sql = "INSERT INTO tAnalista(NomeDoAnalista) VALUES ('" & NewData & "')"
DoCmd.RunSQL sql
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If


End Sub

Repeti o codigo nas outras duas combos, trocando os nomes da tabelas e dos campos, porém só funcionou no 1º combo.
Alguma dica?

Olá

Presumindo que o bd seja o mesmo de outro tópico recente, trata-se de um formulário de pesquisa de produtos, filtrado por um conjunto de 3 combos (combAnalista, combEmpresa, e CombProduto), certo?

Dependendo de como as combos estão relacionadas (em função da lógica de filtragem) talvez não seja possível adicionar registros pela(s) combo(s).

Mas é possível adicionar registros nas tabelas-base das combos via VBA, e depois atualizar a combo.

Colega Fabio veja esse exemplo. é só adaptar...
http://speedy.sh/yamvz/Exemplo.rar

Caros Norbs e cafpr, obrigado por responderem. Desculpe-me a demora em respondê-los. Consegui inserir registros diretamente nas combos.
Gostaria de deseja-lhes um excelente 2012!! Feliz ano novo!!!

Fábio.

E tópico Resolvido.