Listar campos de uma tabela

'Listar tabelas e campos
   Dim adoConexao As ADODB.Connection
   Dim adoTabelas As ADODB.Recordset, adoCampos As ADODB.Recordset
   Dim intContador As Integer

   Set adoConexao = New ADODB.Connection
   adoConexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source = C:BancodeDados.mdb;Jet OLEDB:Database Password=Total"

   Set adoTabelas = adoConexao.OpenSchema(adSchemaTables)
   Do Until adoTabelas.EOF

      If adoTabelas(3) = "TABLE" Then
         lstTabelas.AddItem adoTabelas(2)

         Set adoCampos = New ADODB.Recordset
         adoCampos.Open "SELECT * FROM " & adoTabelas(2), adoConexao
         For intContador = 0 To adoCampos.Fields.Count - 1
            lstTabelas.AddItem "  -  " & adoCampos(intContador).Name
         Next
         adoCampos.Close
      End If
      adoTabelas.MoveNext
   Loop