Requête base access en vb6

Salut à tous,
Je réaliser une application sous vb6 avec une base Access 2013
Je souhaiterais faire une requête dans la base depuis vb6
Pilote ODBC

Code:

---

1 2 3 4

Set cnx = New ADODB.Connection Set Rs = New ADODB.Recordset Chaine = "provider=msdasql;dsn=nomDns" cnx.Open chaine

---

Sur saisie dans textbox1 la valeur du champ a extraire le données
Sur boutobClick on exécute la requête
Ex :

Code:

---

1 2 3

SELECT Client.NumClient, Client.NomClient, Client.CodCatClient, Client.Adresse, Client.NumTel, Commande.NumBonCom, Commande.NumProd, Commande.DateBonCom, Produit.NumPro, Produit.DesiPro FROM Produit INNER JOIN (Client INNER JOIN Commande ON Client.NumClient = Commande.NumClient) ON Produit.NumPro = Commande.NumProd WHERE ((([Client])="")) OR (((Client.NumClient)=[Client]))

---

On extrait seulement le données correspondant aux texte dutextbox1
En suite afficher dans un report
La requête est multi table
Votre aide mes sera de plus grande utilité Merci !
:cry: