ADODB - Elencare i nomi dei campi di una tabella

Esempio:

Dim Cnn As New System.Data.OleDb.OleDbConnection(CnnDb)
Cnn.Open()
Dim Cmd As New System.Data.OleDb.OleDbCommand("SELECT * FROM TABELLA", Cnn)
Dim Dr As System.Data.OleDb.OleDbDataReader = Cmd.ExecuteReader

For Ind = 0 To DR.FieldCount - 1

MsgBox(DR.GetValue(Ind))

Next