Visual Basic - nombre de los campos de una tabla

hola

Mi cuestionante es: ¿como puedo obtener los nombres de los campos de una tabla para desplegarlos en un listview?
Gracias...

Private Sub Command2_Click()

Dim ttabla As TableDef
For Each ttabla In basededatos.TableDefs
List1.AddItem ttabla.Name
Next

End Sub

<FIN DE TEXTO>

Martin {^_^} Gracias pero investigando encontre esta forma y me dio resultado:

Set db = OpenDatabase(BaseDatos)
Set rs = db.OpenRecordset("select * from " & Tabla & " ")

Cantidad = rs.Fields.Count
For Indice = 0 To Cantidad - 1
lvwListaCampos.ListItems.Add.Text = rs.Fields(Indice).Name
Next