[Resolvido]Buscar dados de uma caixa de listagem para um subformulario

Ola amigos. Gostaria de uma ajuda no bd em anexo.
estou criando um sistema de vendas e preciso de um código para esse procedimento.

No meu frm_venda tem um Subformulário que é para adicionar os produtos que o cliente vai comprar; No final da linha desse subformulário,
tem um botão "pesquisar" para buscar os produtos do estoque. Ele já abre o estoque. O que eu quero é dar dois clicks no produto desse estoque, e ele ser lançado na próxima linha do meu subformulário.

Só uma busca de produtos apenas. Espero ter sido claro.
Obrigado

bom dia meu amigo! fiz uma modificação no seu projeto veja se ajuda adicionei o codigo abaixo no form "frm_pesquisa"

Código:


Private Sub Lista2_DblClick(Cancel As Integer)
'aqui vamos criar um insert na tabale tbl_detalhe
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("tbl_detalhe")
rs.AddNew
rs("ligaçao") = Forms!frm_venda!idcompra
rs("codProduto") = Lista2.Column(1)
rs("produto") = Lista2.Column(2)
rs("marca") = Lista2.Column(3)
rs("quantidade") = 0
rs("preço") = Lista2.Column(4)
rs.Update
rs.Close
Set rs = Nothing

Form_subfrm_detalhe.Requery
DoCmd.Close '  fecha o form pesquisa


'fim do insert na tabale tbl_detalhe
End Sub




http://www.4shared.com/rar/aGyHN8Laba/Subform-daniloreiis.html

Bom dia.
Ou se quiser pode utilizar este.
Agora fica ao seu critério.
Saudações.

Ola amigos, obrigado pela ajuda. O Danilo resolveu o meu problema mas o claudio ajudou muito com essa ideia, pois vou usa-la em outras partes do meu bd oficial.
Resolvido   

Que bom que resolveu.
O fórum agradece o retorno.
Saudações.