VB: Afficher le résultat d'une requête SQL

Bonjour,

J'essaie de récupérer le résultat d'une requête SQL via VB et l'afficher dans une liste.

Private Sub recherche_Click()
SQL = "SELECT * from Table1 where Type=" & Valeur.Value & ""
resulta.RowSource = SQL
resulta.Requery

End Sub

avec ce code, lorsque je click sur le bouton rechercher, celui-ci m'ouvre une petite fenêtre
avec un champ de text alors que j'ais déjà fait la requête dans un champs de text sur mon formulaire

PS: je ne m'y connait rien en VB

Configuration: Windows XP Internet Explorer 6.0