A geneic vba ListBox with column titles

'START Adding column titles ==================================

list1.ColumnCount = objRecordSet.Fields.Count

i = 0
With Me.list1
.Clear
.AddItem
Dim j As Integer
Dim maxFieldsCount As Integer
maxFieldsCount = objRecordSet.Fields.Count - 1
' generic list box addition no column names !!!
For j = 0 To maxFieldsCount
.List(i, j) = objRecordSet.Fields(j).Name
Next

i = i + 1
End With
'STOP Adding column titles ==================================

'START Adding the row values =============================
If (objRecordSet.EOF = True) Then
FlagRecordsExist = True
Else
objRecordSet.MoveFirst
With Me.list1
Do
.AddItem
maxFieldsCount = objRecordSet.Fields.Count - 1
' generic list box addition no column names !!!
For j = 0 To maxFieldsCount
.List(i, j) = objRecordSet(j).Value
Next
i = i + 1
objRecordSet.MoveNext
Loop Until objRecordSet.EOF
End With
'STOP Adding the row values =============================
End If