Buscar registro en Formulario

Gracias por vuestra ayuda Mihura, prga, rokoko. Finalmente lo he resuelto de la siguiente forma:

Private Sub FechaAvería_BUSQUEDA_AfterUpdate()
If DCount("FechaAvería", "tblDatos_Averías", "FechaAvería=# " & Format(Me.FechaAvería_BUSQUEDA, "mm/dd/yyyy") & "#") > 0 Then
'....
Dim rst As DAO.Recordset
    '....
    Set rst = Me.RecordsetClone
    rst.MoveFirst
    rst.FindFirst "[FechaAvería] = #" & Format(Me![FechaAvería_BUSQUEDA], "mm/dd/yyyy") & "#"
        If Not rst.EOF Then
            Me.Bookmark = rst.Bookmark
        End If
Else
    msbTexto = ""
    msbTexto = msbTexto & vbCrLf & "    Trabajo pendiente de registrar en la Base de Datos !!"
    msbTitu = "Registro Trabajos"
    msbOpc = vbOKOnly + vbInformation
    MsgBox msbTexto, msbOpc, msbTitu

      End If
    Me.FechaAvería_BUSQUEDA = ""
End Sub

Se puede cerrar el hilo, muchas gracias