[Resolvido]Copiar dados com duplo clique

Boa tarde , como eu faço pra quando clicar duas vezes em um determinado campo de um subform os dados dele sejam copiados para outro campo de um form?

Subformulário de Pesquisa.

Private Sub Produtor_DblClick(Cancel As Integer)
On Error GoTo Err_cmdOpen_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmProdutor"

stLinkCriteria = "[IdProdutor]=" & Me![IdProdutor]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdOpen_Click:
Exit Sub

Err_cmdOpen_Click:
MsgBox err.Description
Resume Exit_cmdOpen_Click

Muito obrigado! Vou testar no meu HD. Vlw mesmo!