Erreur 3021 alors que recordset.EOF=False

Bonjour,
J'ai un formulaire avec un sous-formulaire nommé SEARCH qui correspond à une requête SQL paramétrée. Lors de l'appui sur un bouton du formulaire, je veux pouvoir récupérer le titre sélectionné par l'utilisateur (via un clic souris) dans le sous-formulaire.
Voici le code que j'utilise pour le bouton :

dim valeur as string
    dim test as DAO.recordset

    Set test = Me.SEARCH.Form.Recordset
    If test.EOF Then
        MsgBox "Veuillez sélectionner un titre"
        GoTo fin
    End If
    valeur = Me.SEARCH.Form.Recordset.Fields("Titre").Value
 fin:

Ce code marche très bien tant qu'il y a un résultat à la requête. Le premier enregistrement est sélectionné par défaut. Quand il n'y a aucun résultat à afficher, le code plante à l'affectation de la variable valeur sans passer dans le IF. J'obtiens alors l'erreur : "erreur d'exécution 3021 : Aucun enregistrement en cours". Comment faire pour que ce cas soit pris en compte dans le IF ?
Merci d'avance.