How to display data in the listbox column header

Private Sub cmdAppend_Click()
'Declaring the necessary variables.
Dim cnn As ADODB.Connection 'dim the ADO collection class
Dim rs As ADODB.Recordset 'dim the ADO recordset class
Dim dbPath As String
Dim i As Integer
Dim x As Integer
'add error handling
On Error GoTo errHandler:
If Me.Arec1.Value = "" Then
MsgBox "You must enter a valid ID number.", _
vbOKOnly Or vbInformation, "Insufficent data"
Exit Sub
End If
'get the path to the database
dbPath = Sheet1.Range("I3").Value




Set cnn = New ADODB.Connection ' Initialise the collection class variable




'Connection class is equipped with a —method— named Open
'—-4 aguments—- ConnectionString, UserID, Password, Options
'ConnectionString formula—-Key1=Value1;Key2=Value2;Key_n=Value_n;
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath




Set rs = New ADODB.Recordset 'assign memory to the recordset
'Create the SQL statement to retrieve the data from table.
rs.Open "SELECT * FROM PhoneList " & _
"WHERE ID = " & CLng(Me.Arec1), ActiveConnection:=cnn, _
CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _
Options:=adCmdText




If rs.EOF And rs.BOF Then
'Close the recordet and the connection.
rs.Close
cnn.Close
'clear memory
Set rs = Nothing
Set cnn = Nothing
'Enable the screen.
Application.ScreenUpdating = True
'In case of an empty recordset display an error.
MsgBox "There are no records in the recordset!", vbCritical, "No Records"
Exit Sub
End If
With rs
For i = 1 To 7
rs(Cells(1, i).Value) = Me.Controls("Arec" & i).Value
Next i
rs.Update
End With




'clear the userform values
For x = 1 To 7
Me.Controls("Arec" & x).Value = ""
Next




'Close the recordset and the connection.
rs.Close
cnn.Close
'clear memory
Set rs = Nothing
Set cnn = Nothing
'refresh the listbox
ImportUserForm
'Enable the screen.
Application.ScreenUpdating = True




Me.lstDataAccess.RowSource = "DataAccess"
'Inform the user that the macro was executed successfully.
MsgBox "Congratulation the data has been appended", vbInformation, "Append successful"
'error handler
On Error GoTo 0
Exit Sub




errHandler:
'clear memory
Set rs = Nothing
Set cnn = Nothing
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Import_Data"




End Sub