Pour ajouter un string je fais :
.Fields.Append "RefElb", adChar, 30

adinteger pour un integer
adsingle pour un single

j'ai perdu la liste pour les autres ...