Convertion vba en SQL AS400

Bonjour à tous,

Débutant sur l'AS400, je voudrais convertir quelques requêtes que j'avais en VBA pour l'AS400.

J'ai déjà essayé plusieurs syntaxes, mais j'ai toujours des erreurs.
Je voudrais convertir la requête

Code:

---

"where DFVCA>=" & Format(Date, "yyyymm") & " and coren='A' and DFCLOB=' '"

---

J'ai déjà essayé

Code:

---

"where DFVCA>=Format(Date(Now()), 'yyyymm') and coren='A' and DFCLOB=' '"

---

Mais il n'a pas marché. :cry:
Est-ce que quelqu'un peut m'aider svp?

Merci d'avance

J'ai reussi:

Code:

---

year(current date)*100 + month(current date)

---

;)