Bonjour,
merci de cette réponse mais changer les champs dans la BD n'a rien changer, j'ai toujours la même erreur au même endroit !
Voici les deux tables en question sur le schéma des relations :

Voici le formulaire VB :

Et voici le code que je veux exécuter au chargement de la feuille :
Private Sub Form_Load()

OngletSousT.Tab = 0 'on est sur la consultation des sous-traitants
'on crée une requête
LstAptSousT.Clear
chsql = "SELECT e.[Code étape], Désignation FROM Etapes AS e, Aptitudes AS a Where e.[Code étape] = a.[Code étape] And [Num sous-traitant] = " + ZTNumSousT.Text

'execution de la requête
Set RSAptSousT = CnxChantier.Execute(chsql) => Toujours ici que ça plante avec la même erreur

'test pour savoir si il y a des occurrences dans RsAptSousT
If RSAptSousT.EOF = False Then ' il n'est pas vide
Do While RSAptSousT.EOF = False
'on ajoute les aptitudes du sous-traitant à la liste voulu
LstAptSousT.AddItem RSAptSousT("Désignation")
RSAptSousT.MoveNext
Loop
End If
End Sub

Merci