[Resolvido]Lançando em subform

Preciso que a medida que vou dando dois cliques nos produtos da lista ele vá lançando eles no sub form. Ele está lançando apenas o primeiro.

SelecaoMouse

Ola Giberlanio boa tarde;

Olhe o simples;

Private Sub cmdCapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.ltxListaProdutos.ListIndex
If Selecionado = True Then
Me.Frm_Cad_Mesa_Sub.SetFocus
DoCmd.GoToRecord , , acNewRec
Forms!Frm_Lancamento![Frm_Cad_Mesa_Sub].Form.TxtCodProd.Value = Me.ltxListaProdutos.Column(0, Linha)
Forms!Frm_Lancamento![Frm_Lancamento].Form.TxtVR_UNIT.Value = Me.ltxListaProdutos.Column(3, Linha)
End If
End Sub

Ficou perfeito. Valeu!

Valew pelo retorno.