Как узнать названия полей базы данных через VB6

Формулировка задачи:

У меня есть база данных Access в которой имеется таблица "Студенты", а названия полей не известны. Как можно через программу узнать названия всех полей в этой таблице. Очень надо. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!

Решение задачи: «Как узнать названия полей базы данных через VB6»

textual
                            Листинг программы 
                        
                            'Кинь на форму ListBox,Data и CommandButton
    
    Private Sub Form_Load()
    
    Data1.DatabaseName = "D:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb"
    Data1.RecordSource = "Publishers"
    Data1.Refresh
    
    End Sub
    
    Private Sub Command1_Click()
    
    Dim i As Integer
    
    For i = 0 To Data1.Recordset.Fields.Count - 1
    'Производим запись имени поля в элемент ListBox
    List1.AddItem Data1.Recordset.Fields(i).Name
    Next
    
    End Sub