O procedimento abaixo funciona direitinho, porèm o título das colunas aparecem em branco, o que está faltando?

 

 'Carrega Centros
    Me.cboCentro.BoundColumn = 1
    Me.cboCentro.ColumnCount = 5 'Número de Colunas
    Me.cboCentro.ColumnWidths = "0cm;2,3cm;4,5cm;4,5cm;3cm;0cm" 'Largura das colunas
    Me.cboCentro.ListWidth = "14,3cm" 'Largura da Lista
    Me.cboCentro.ColumnHeads = True 'Título das Colunas
   
   
    Set rsCB = New ADODB.Recordset
    strCB = "SELECT T_CTrabalho.Num_ID_CTrabalho, (T_CTrabalho.Cod_CenTrab) AS CENTRO, (T_Processo.Des_Processo) AS PROCESSO, (T_Base.Des_Base) AS BASE, (T_Empreiteiras.Des_Empreiteira) AS EMPREITEIRA, T_CTrabalho.Num_ID_Executor FROM T_Processo RIGHT JOIN (T_Empreiteiras RIGHT JOIN (T_Base RIGHT JOIN T_CTrabalho ON T_Base.Num_ID_Base=T_CTrabalho.Num_ID_Base) ON T_Empreiteiras.Num_ID_Empreiteira=T_CTrabalho.Num_ID_Empreiteira) ON T_Processo.Num_ID_Processo=T_CTrabalho.Num_ID_Processo ORDER BY T_CTrabalho.Cod_CenTrab; "
    rsCB.Open strCB, cnn, adOpenKeyset, adLockOptimistic
    rsCB.MoveMin
    X = 0
    Do Until rsCB.EOF
        Me.cboCentro.AddItem
        Me.cboCentro.List(X, 0) = rsCB("Num_ID_CTrabalho")
        Me.cboCentro.List(X, 1) = rsCB("CENTRO")
        Me.cboCentro.List(X, 2) = rsCB("PROCESSO")
        Me.cboCentro.List(X, 3) = rsCB("BASE")
        Me.cboCentro.List(X, 4) = IIf(rsCB("EMPREITEIRA") = "", "", IIf(IsNull(rsCB("EMPREITEIRA")), "", rsCB("EMPREITEIRA")))
        X = X + 1
        rsCB.MoveNext
    Loop
    rsCB.Close
    Set rsCB = Nothing