RS.Open ("SELECT Id_Equipement FROM T_EQUIPEMENT WHERE Nom_Equipement = " & T.EQ & ""), Connexion, adOpenKeyset, adLockOptimistic
RS.Open ("SELECT Id_Equipement FROM T_EQUIPEMENT WHERE Nom_Equipement = """ & T.EQ & """"), BngConnexion, adOpenKeyset, adLockOptimistic