[Resolvido]Identificar nomes dos campos da tabela via código vba

Prezados,

Estou pesquisando a um bom tempo, mas não consegui ainda a solução.
Necessito identificar, via código VBA, os nomes dos campos de uma determinada
tabela.
Se alguém possui esse código, desde já ficarei muito grato.

Abraço à todos.
Domingos

Bom dia, Domingos, e bem-vindo ao fórum.
Temos fera! Primeira dúvida e já em VBA. Gostei!

Presente de adesão ao fórum:

Sub MostraCampos(strTabela As String)
'criado por Alexandre Neves
'em 2011-05-15
'para Domingos
'do fórum MaximoAccess
Dim I As Integer

For I = 1 To CurrentDb.TableDefs(strTabela).Fields.Count
MsgBox CurrentDb.TableDefs(strTabela).Fields(I - 1).Name
Next
End Sub
Cumprimentos,

Valeu Alexandre, obrigado pelo código.
Excelente esse forum, me tornei assíduo.

Abraço à todos.

Só faltou clicar no botão Resolvido. Vou fazê-lo agora, mas fica o alerta para as próximas, ok?