[Resolvido]Combo em form divido

Boa noite a todos.
Tenho 3 tabelas.
2 relacionadas as combos existentes (cada uma de forma isolada).
E possuo 3 forms.
1- FrmTesteCid - modelo da interação das combo.
2- Escolha1 e escolha2.
Gostaria que nesse form dividido, a medida que fosse escolhendo as opções provenientes desta interação das combo, estas fossem acrescentadas a 3 tabela (cadastro) que armazenará essas escolhas.
em relação ao form Escolha 2 substitui a 2 combo por uma caixa de listagem, mas não rodou 100%, mas gostaria que também acrescentasse do mesmo jeito descrito antes.
Se alguém puder ajudar.....agradeço.
Obrigado.

Bom dia a todos.
A questão da listbox já consegui resolver com a juda dos amigos do forum.
Precisaria que uma ideia/rotina para usar nesse form dividido, na medida que fosse escolhendo as opções provenientes desta interação das caixas, acrescentando na 3 tabela (cadastro) os dados escolhidos.
obrigado

coloquei sua LstCid10 no evento ao clicar, por considerá que seja a ultima informação escolhida,
mas o ideal é colocar este evento em u botão se não cada vez que clicar vai inserindo um novo registro,
ou coloca uma caixa de mensagem para confirma que não vai ser muito interessante tbm.
o melhor mesmo um botão.

veja se á isso que vc quer:
Private Sub LstCid10_Click()
Dim Linha As Integer, IdProcesso As Integer, LstCid10 As String

'captura valor dos campos do seu interesse
IdProcesso = Me.IdProcesso.Value
Linha = Me.LstCid10.ListIndex
LstCid10 = Me.LstCid10.Column(2, Linha)

Dim db As DAO.Database
Dim rs As DAO.Recordset
'Vamos adicionar um novo registro na tabela cadastro.

Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabela1")

rs.AddNew
rs.Fields("IdProcesso") = IdProcesso
rs.Fields("NomeCidEscolhido") = LstCid10
rs.Update
rs.Clone
Set db = Nothing

End Sub

Muito obrigado.
Avelino e demais.
Com ajuda de todos encontrou-se este caminho em um botão salvar....


Private Sub Comando4_Click()
Me!NomeCidEscolhido = Me!LstCid10.Column(2)
Me!CodCid = Me!LstCid10.Column(1)
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
End Sub


gde Abs