¿Como crear un Buscador en access?

Tengo un formulario en el cual tengo un buscador, tengo lo siguiente txtbox el cual llame txtbuscar y un botón que le puse btnbuscar además tengo un independiente el cual puse Lista1 y en esa lista en sus propiedades puse en después de actualizar lo siguiente:

Private Sub Lista1_AfterUpdate()
Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID Codigo] = " & Str(Nz(Me![Lista1], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Y al botón buscar e puesto:

Lista1. Requery

Pero lo que quisiera que de la lista que tengo a la hora de poner un dato que no tenga en existencia aparezca un mensaje que me diga que el libro no exista y de estar que me mande el mensaje de búsqueda exitosa. Me podría ayudar en esta parte