Имена столбцов

Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim c As Integer
Dim r As Long
 
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Driver={Microsoft dBASE Driver (*.dbf)};driveId = 277 ; Dbq=" & Trim(frmMyForm.TextBox2.Text) & ";"
    conn.Open
 
    statement = "SELECT * FROM TEL"
    
    Set rs = conn.Execute(statement, , adCmdText)
 
    MSFlexGrid1.Rows = 2
    MSFlexGrid1.FixedRows = 1
    MSFlexGrid1.FixedCols = 1
 
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.Cols = rs.Fields.Count + 1
 
    For c = 0 To rs.Fields.Count - 1
        MSFlexGrid1.TextMatrix(0, c) = rs.Fields(c).Name
    Next c
 
    r = 1
    Do While Not rs.EOF
        MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
        For c = 0 To rs.Fields.Count - 1
            MSFlexGrid1.TextMatrix(r, c + 1) = _
                rs.Fields(c).Value
        Next c
 
        rs.MoveNext
        r = r + 1
    Loop
 
    rs.Close
    conn.Close
 
    Call UPDGrid

    For c = 0 To rs.Fields.Count - 1
        MSFlexGrid1.TextMatrix(0, c) = rs.Fields(c).Name
    Next c

 MSFlexGrid1.TextMatrix(0, c) = rs.Fields(c).Name
 MSFlexGrid1.TextMatrix(r, c + 1) = rs.Fields(c).Value

 MSFlexGrid1.TextMatrix(r, c ) =  rs.Fields(c).Value

Private Sub Комманда1_Click() ' Всё. показать весь список
Dim c
With FG ' выбрать таблицу
.Rows = 1 ' назначить в таблице одну строку
 
RS.MoveLast ' две строчки для подсчёта количества записей в таблице
RS.MoveFirst '
.TextMatrix(0, 0) = RS.Fields(0).Name ' заполнить значениями
    For c = 0 To .Cols - 1
      .TextMatrix(0, c) = RS.Fields(c).Name
     Next c
     
For J = 1 To RS.RecordCount ' с начала до конца таблицы
.Rows = .Rows + 1 ' прибавить строчку в таблице
    For c = 0 To .Cols - 1
        .TextMatrix(J, c) = RS.Fields(c) ' заполнить значениями
    Next c
RS.MoveNext ' следующая строка в таблице базы
Next J 'следующая строка
 
End With ' конец выбрать
End Sub 'конец процедуры

MSFlexGrid1.TextMatrix(r, c ) =  rs.Fields(c).Value

MSFlexGrid1.FixedCols = 1