probleme en vba avec la requete like

bonjour,
j'ai un probleme avec une procedure evenementielle
voici le code de ma requete :

Dim Rst As New ADODB.Recordset
Dim str As String
str = "SELECT TOP 1 * FROM TabArticle WHERE numero_article
like '" & [Form_Art]![art_type] & "*" & [Form_art]!
[art_an] & "'"

MsgBox "debug : la string est " & str

' la requete obtenue est correcte du point de vue SQL
' MsgBox "DEBUG : requete SQL est " & str

Rst.Open str, CurrentProject.Connection, adOpenStatic,
adLockOptimistic
MsgBox "DEBUG : on a termine la requete the result is : "
& Rst.Fields("numero_article")

et la derniere Box ne remonte aucun numero, alors que la
requete SQL suivante me renvoie le resultat correcte :

SELECT TOP 1 TabArticle.Numero_article
FROM TabArticle
WHERE ((([TabArticle]![Numero_article]) Like [Formulaires]!
[art]![art_type]+"*"+[Formulaires]![art]![art_an]))
ORDER BY TabArticle.Numero_article DESC;

le probleme ne provient pas des champs du formulaire mais
bien de l'operateur like et *,
quelqu'un aurait il une idee pour resoudre ce probleme de
recherche.