Requete SQL dans VB6 (base : ACCESS)

champs dans le select :
date debut - date fin - n° trait,libelle, description - nom patient
nom vaccin, nom medicament



cmdADO.CommandText = "

***************************************************
* Instruction SQL - Requete sur 5 ou 6 tables.... *
***************************************************


SELECT Traitement.[n° traitement], traitement.[libelle trait], traitement.[description trait], debuter.[date debut], finir.[date fin], patient.[nom patient], vaccin.[libelle vaccin], medicament.[nom med]

FROM Traitement, Debuter, Finir, Patient, vaccin, medicament

WHERE Vaccin.[n° vaccin]=Integrer.[n° vaccin]

AND Traitement.[n° traitement]=Integrer.[n° traitement]

AND Patient.[n° patient]=Finir.[n° patient]

AND Traitement.[n° Traitement]=Finir.[n° traitement]

AND Patient.[n° patient]=Debuter.[n° patient]

And Traitement.[n° Traitement]=Debuter.[n° traitement]

AND Traitement.[n° traitement] = Comprendre.[n° traitement]

And Medicament.[n° medicament] = Comprendre.[n° medicament]"


Est ce qu'il est possible dans VB de faire une requete avec autant de "AND". Sur la form, j'ai plusieurs champs textes et plusieurs cles etrangeres a faire apparaitre issues de plusieurs tables (5 au total)

J'utilise ADODB (sans controle ADODC)

Si la reponse est non (c'est impossible d'utiliser cette requete) est ce qu'il est possible cette fois de creer plusieurs "command" et des recordset associés... ? et de synchroniser les enregistrements..... ?!?
P.S. : ma base est en ACCESS



Dans une autre form j'ai le code suivant, est ce que c'est correct ?

Private Sub Form_Load()
' Choix du fournisseur de la Base de Données - pour Access - Microsoft jet OLEDB
cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"
' Chemin de la Base de Données - répertoire de l'application
cnnADO.ConnectionString = App.Path & "\mediclic.mdb"
' Ouverture de la Base de Données
cnnADO.Open
' Pour relier la connexion ouverte à la commande
cmdADO.ActiveConnection = cnnADO
' Configuration de la conmande avec requete SQL
cmdADO.CommandText = "SELECT Recettes.*, GENERER.date FROM Recettes INNER JOIN (Consultation INNER JOIN GENERER ON Consultation.[n° consultation] = GENERER.[n° consultation]) ON Recettes.[n° recette] = GENERER.[n° recette] ORDER BY GENERER.date"
' Initialisation du Curseur Client (il permet d'associer des methodes ou proprietes à une requête "Query"
rsADO.CursorLocation = adUseClient
' Utilisation d'un Curseur Client Dynamique
rsADO.CursorType = adOpenDynamic
' Vérouillage de l'Enregistrement dès son accès
rsADO.LockType = adLockPessimistic
' Transmission de la commande à la méthode Open
' Open : permet d'efectuer une opération d'entrée/sortie sur un fichier
rsADO.Open cmdADO
' Appel de la procédure de lecture de l'Objet Recordset pour mise à jour des Zones de Textes
Call ReadRecord
End Sub
Private Sub ReadRecord()
'Procédure de Lecture dans l'Objet Recordset
'Champs à afficher : N° recette, Libelle, Montant, description, Generer.date
On Error GoTo Erreur

'If IsNull(rsADO![n° recette]) Then
' Text1.Text = ""
'Else
'''''''''''''''''''''''''''''Text1.Text = (rsADO![n° recette])
'End If
'If IsNull(rsADO![libelle recette]) Then
' Text2.Text = ""
'Else
rsADO.Fields(1) = Text1.Text
rsADO.Fields(2) = Text2.Text
rsADO.Fields(3) = Text3.Text
rsADO.Fields(4) = Text4.Text
rsADO.Fields(5) = Text5.Text


''''''''''''''''''''''''''Text2.Text = (rsADO![libelle recette])
'End If
'If IsNull(rsADO![Montant recette]) Then
' Text3.Text = ""
'Else
'Text3.Text = (rsADO![Montant recette])
'End If
'If IsNull(rsADO![description recette]) Then
' Text4.Text = ""
'Else
'Text4.Text = (rsADO![description recette])
'End If
'If IsNull(rsADO![Date]) Then
' Text5.Text = ""
'Else
'Text5.Text = (rsADO![Date])
'End If
Text6.Text = "Enregistrement " & rsADO.AbsolutePosition + 1 & " de " & rsADO.RecordCount
Erreur:
Debug.Print "faut debugger !"
MsgBox "Impossible d'accèder à la base de données"
End Sub



--->L'informaticien toujours en quete<---