[Resolvido]Código em botão

Ola colegas,

Tenho um campo que filtra um subform ao digitar, mais esta muito lenta a pesquisa então a solução
é passar o código da filtragen para um botão, porem não estou conseguindo fazer.

Como coloco esse código em um Botão ?

Código:

Private Sub txt_PesquisaNome_Change()
Dim txtNome As String
textnome = TodosAcentos(Me.txt_PesquisaNome.Text)

 
   Me.subfrmPesquisaClientes.Form.RecordSource = "SELECT tblMedicamentos.*" & _

   "FROM tblMedicamentos WHERE tblMedicamentos.med_Nome Like """ & Chr(42) &

     textnome & Chr(42) & """" & _
   
    "OR tblMedicamentos.med_Nome       Like """ & Chr(42) & textnome & Chr(42) & """" & _
    "OR tblMedicamentos.med_Sal     Like """ & Chr(42) & textnome & Chr(42) & """" & _
    "OR tblMedicamentos.med_Fabricante     Like """ & Chr(42) & textnome & Chr(42) & """" & _
    "OR tblMedicamentos.med_Preco_Custo        Like """ & Chr(42) & textnome & Chr(42) & """" & _
    "OR tblMedicamentos.med_Preco_Venda     Like """ & Chr(42) & textnome & Chr(42) & """" & _
    "ORDER BY tblMedicamentos.med_Nome;"
End Sub