Afficher les noms de colonnes

Bonjour
Comment je peux afficher les noms de colonnes du Datareader?

Code:

---

1 2 3 4

For i = 0 To vReader.FieldCount - 1   sw.Write(vReader.GetName(i) & vbTab) Next

---