Sem ver sua rotina de seleção ficamos : Supondo que " rst" seja o nome de seu recordset e " lstlista " o nome de sua listbox
Algo =/- assim:

        For i = 0 To rst.Fields.Count - 1
            lstLista.List(0, i) = rst.Fields(i).Name
        Next i

Olá amigo! Vou testar! Basicamente é só carregar os cabeçalhos da tabela Access nos cabeçalhos (ColumnHeads) do listbox mesmo. Obrigado pela atenção!

Amigo, uma dúvida, em qual momento no seu código eu alimento a ColumnHeads do Listbox com os cabeçalhos da tabela access?

Obrigado