Access - Por favor, CODIGO VB DEL COMANDO BUSCAR

Private Sub CommandButton1_Click()

    Dim frm As Form, ctl As Control, strFind As String, strCriteria As String

    'Obtener el formulario actual y el control que tiene el foco

    Set frm = Screen.ActiveForm

    Set ctl = Screen.ActiveControl

    'Comprobar que el control tenga una propiedad ControlSource válida

    If Not ctl.ControlType = acTextBox Or Len(ctl.ControlSource) = 0 Then

        MsgBox "No se puede buscar en este campo."

        Exit Sub

    End If

    'Obtener el valor del campo y construir el criterio de búsqueda

    strFind = ctl.Value

    strCriteria = "[" & ctl.ControlSource & "] Like '*" & strFind & "*'"

    'Abrir el formulario de búsqueda y aplicar el criterio de búsqueda

    DoCmd.OpenForm "frmBuscar"

    Forms("frmBuscar").Filter = strCriteria

    Forms("frmBuscar").FilterOn = True

End Sub