Como colocar titulo nas colunas de um Listbox

Question

Boa tarde, 

Gostaria de saber como faço para colocar títulos nas colunas de um listbox que é preenchido a partir do banco de dados.

###informação adicional#####

eu faço uma consulta ao banco e preencho um listbox, mas não consigo colocar os títulos nas colunas. queria ver se é possível fazer direto da consulta.

#####codigo#####

                                     

Sub carrega_retiros()
 Dim rs As ADODB.Recordset
   Dim cn As ADODB.Connection

    Dim strDB As String
    Dim strSQL As String

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    strDB = ThisWorkbook.Path & "\db_salgacao.accdb"
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & strDB & ";"

    cn.Open
 ''''''carrega estados
   strSQL = "SELECT * from tbRetiros"

    Set rs = cn.Execute(strSQL)

    If rs.RecordCount < 0 Then
        Do While Not rs.EOF

            '''carrega retiros
            frmRetiros.lbRetiros.AddItem rs.Fields("codigo")   '''carrega codigos
            frmRetiros.lbRetiros.List(frmRetiros.lbRetiros.ListCount - 1, 1) = rs.Fields("nome_retiro")  '''carrega retiros
            rs.MoveNext

            ''''''''''''''''''''''''''
       Loop
   End If

 rs.Close
  cn.Close
End Sub

Answer 1

Já resolvi.

na verdade o controle que mostra nome das colunas é o LISTVIEW, mas na versão do meu office (64) ele não roda.

não será possível.