l'existence d'une colonne en table sql et vb6

Bonjour à tous je suis entrain de faire un test sur l’existence d'un champ dans une table Sql et Vb6 voila le code que j'ai fait

Code:

---

1 2	ConnectionGlobal.Execute " (case when not EXISTS(SELECT * From INFORMATION_SCHEMA.Columns " _ & " Where [TABLE_NAME] = 'LivreP' AND [COLUMN_NAME] = 'CSS') then alter table LivreP add CSS decima(19,4) null end ) "

---

mais il y un message d'erreur (erreur de syntaxe vers Case)

merciii d'avance