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

Public Sub TestCaption()
    Dim rst As DAO.Recordset
    Dim i As Integer
    Dim strCaption As String
    
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM МояТаблица", , dbReadOnly)
    
    With rst
        For i = 1 To .Fields.Count - 1
            'здесь бы по приколу strCaption массивом заделать с ReDim Preserve
            'но и так смысел понятен
            strCaption = .Fields(i).Name
        Next i
        .Close
    End With
    Set rst = Nothing
End Sub

'Кинь на форму 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