[Resolvido]selecionar item da listbox para outro formulario utilizando botão

Boa tarde

Tenho procurado e não encontrei nada que me ajudasse... estou iniciando em Access... tenho em um formulario (frmprodutoscompras) uma listbox (cxl_produtos) contendo vários produtos, com as seguintes colunas: codproduto, nomeproduto, valorcompra; gostaria que ao clicar num botão de comando (alterar) abrisse o formulario de cadastro (frmcadproduto) com o item selecionado na listbox... preciso fazer através de um botão porque a opção de duploclique já está programado para lançar os itens em um outro formulario (frmdetalhescompras)... desde já obrigado...

Substitua os campos em negrito pelos seus;

Private Sub comando100_Click()
Dim strNomeDoDoc As String
Dim strFiltro As String
strNomeDoDoc = "Frm_NF_Entrada"
strFiltro = "[IdEntrada] = [Forms]![Frm_Consulta_NF_Entrada]![IdEntrada]"
DoCmd.OpenForm strNomeDoDoc, , , strFiltro
DoCmd.Close acForm, "Frm_Consulta_NF_Entrada"
Exit_IdEntrada_Click:

End Sub

Fiz as substituições... escolhi uma linha e dei o clique no botão, mas não deu certo... deu msg de erro em tempo de execução 2491... a ação ou método é inválido porque o formulário ou relatório não está associado a uma tabela ou consulta... no depurar apontou a linha: DoCmd.OpenForm strNomeDoDoc, , , strFiltro

Private Sub comando100_Click()
On Error GoTo Err_cmdOpen_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "(frmcadproduto"
   
   stLinkCriteria = "[IdProd]=" & Me![IdProd]
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdOpen_Click:
   Exit Sub

Err_cmdOpen_Click:
   MsgBox Err.Description
   Resume Exit_cmdOpen_Click
End Sub

obrigado, mas ainda não foi... dá mensagem: O Microsoft Access não pode localizar o campo 'codproduto' referido em sua expressão

finalmente deu certo... usei as condições abaixo:

  Dim stDocName As String
  Dim stLinkCriteria As String

  stDocName = "frmcadproduto"
 
  stLinkCriteria = "[codproduto]=" & "Forms!frmprodutoscompras!cxl_produtos"
 
  DoCmd.OpenForm stDocName, , , stLinkCriteria

muito obrigado pela ajuda