Vb6 resultat sql dans champ de txt

Bonjour,
j'ai besion de savoir comment faire pour afficher le reslultat d'une requette sql sur un champ de text :

req = "select sum(qttentrer) from enter where nomlivre= '" & a & " '"
Ado4.RecordSource = "" & req & ""
Ado4.Refresh

j'ai essayé
Text2.Text = Ado4.RecordSource = "" & req & ""
mais ca n'a pas marché .

si j'utilise un datagrid le resultat est bien afficher mais mon but est de le faire sur une zone de text
merci de votre réponce.

Configuration: Windows XP
Firefox 2.0.0.1