[Resolvido]Atribuir uma função a botão em tempo de execução

Bom dia!!!

Pessoal, estou com o seguinte problema:

Estou criando um formulário com um organograma utilizando botões de comando, até ai tudo bem consigo fazer sem problemas, porém não estou conseguindo atribuir função para esses botões, que deverão abrir outro formulário filtrando os registros conforme o nome do botão clicado.

Private Sub Comando0_Click()
   Set tabOrganograma = CurrentDb.OpenRecordset("Organograma")
   tabOrganograma.MoveFirst
   DoCmd.OpenForm "Organograma", acDesign, , , , acHidden
   Do While tabOrganograma.EOF = False
       vName = tabOrganograma!nomeuor
       vLeft = tabOrganograma!vLeft
       vTop = tabOrganograma!vTop
       CriaBotão
       tabOrganograma.MoveNext
   Loop
           
                       
   DoCmd.OpenForm "Organograma"
End Sub
Public Function CriaBotão()
   With CreateControl( _
       FormName:="Organograma", _
       ControlType:=acCommandButton, _
       Section:=acDetail, _
       Left:=vLeft, _
       Top:=vTop, _
       Width:=1500, _
       Height:=750)
       
       .Name = vName
       .Caption = vName
       .OnClick = "AbreForm" 'o AbreForm é uma macro, que estou usando para abrir outro form, porém preciso que quando o form abrir ele filtre os registro da consulta conforme o nome do botão'
   End With

End Function

Alguém consegue me ajudar? desde já agradeço a todos.

voce consegue postar o bd para melhor entendimento?

Rubens,

Obrigado pela presteza!

Hoje pela manhã consegui implementar o que eu precisava.

Mais uma vez obrigado pela disponibilidade em ajudar.

envia parte do modelo pra que os outros colaboradores do forum possam usufruir também do que você conseguiu.

Bom dia!

Estava um pouco tumultuado aqui, por isso não postei antes.

Mas segue o arquivo em anexo.