Aucune valeur donnée pour un ou plusieurs des paramètres requis VB6 ACCESS ADO

Bonjour,
J'ai deux bases de données, deux connexions, la première BD contient des variables qui renvoient à la deuxième base de données.
Le but est de parcourir la première base remplie par l'utilisateur pour parcourir la deuxième et ressortir les exemples des catégories d'animaux.

'''Premier recordset pour la base qui contient les valeurs "amphibiens" et "mammiferes"
rsCombi.Open "SELECT * FROM Combinaisons ;", cnxCombi
rsCombi.MoveFirst
Do Until rsCombi.EOF
'''nbElVar = 2
    NbElVar = CStr(rsCombi("Nmot"))

    For i = 1 To NbElVar
        elvar(i).Open "SELECT Expressions FROM tblDico WHERE Categorie = [" & rsCombi("Mot" & CStr(i)) & "];", cnx
    Next i
c'est la ligne en gras qui bloque
dans le débuggeur, rsCombi = "amphibiens"
la tblDico contient une colonne Expressions qui contient des exemples de ces catégories d'animaux et une colonne Categorie qui contient "amphibiens" etc.
J'obtiens le message suivant:
Aucune valeur donnée pour un ou plusieurs des paramètres requis
J'ai changé plusiseurs fois les noms et en fait cette routine est inspirée d'une routine qui fonctionne parfaitement, mais avec une seule base.

Merci à vous

PS : Sinon, il y a aussi le traditionnel
      rsCombi!NomDuChamp      si ce nom est standard
   rsCombi![Nom du champ]  si ce nom comporte des espaces ou des accents ...