Sql Vba Access

Bonjour, j'ai actuellement un probleme lors de l'élaboration d'une requête sql par VBA entre deux listes !!


Donc, j'ai deux listes.

La première allimentée par une table; ca donne :

Dim oo As Recordset
Dim sql As String
sql = "SELECT code_catégorie, description FROM categorie"
Set ooo = CurrentDb.OpenRecordset(sql)
Do While ooo.EOF = False
Liste_recherche.AddItem (ooo("code_catégorie") & " - " & ooo("description"))
ooo.MoveNext
Loop

end sub
Cela fonctionne très bien :)

Quant à la seconde :s :

Private Sub Liste_recherche_Change()
Dim sqll As String
Dim pitbull As String
pitbull = Liste_recherche.Value
sqll = "SELECT titre FROM ouvrage, categorie WHERE categorie.code_catégorie 
= ouvrage.code_catégorie AND categorie.code_catégorie="
Set rstu = CurrentDb.OpenRecordset(sqll, dbOpenForwardOnly, dbReadOnly)
Do While rstu.EOF = False
liste_resultat.AddItem (rstu("titre"))
rstu.MoveNext
end sub
Loop

Ainsi, voici mon problème. Je ne sais pas comment faire pour dire le WHERE que categorie.code_catégorie est égal à la première liste. J'ai bien essayé ca mais ne fonctionne pas :s

sqll = "SELECT titre FROM ouvrage, categorie WHERE categorie.code_catégorie
 = ouvrage.code_catégorie 
AND((categorie.code_catégorie)=Forms!Form4!liste_recherche);"

Je vous demande de l'aide !! /suicide ^^
Mici d'avance :)