Access - Boton de busqueda

Quisiera saber el codigo necesario para crear un boton de busqueda en un formulario.
Gracias mil

talvés te sirva un cuadro de busqueda y el las propiedades despues de actualizar pones

Private Sub CuadroBusqueda_AfterUpdate()

'Busca el registro que coincida con el control
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[IdMaquina] = " & Str(Nz(Me![CuadroBusqueda], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub