Lendo Tabelas e Campo do meu BD Access

[Junior Ari]

Gostaria de saber como faço pra ler as tabelas do meu banco de dados. Por exemplo ao abrir o Banco, colocar o nome das Tabelas em um ListBox, e ao clicar nesse ListBox, colocar o nome dos Campos referentes a tabela selecionada em outro ListBox...

Agradeço ae a galera....

[Macêdo]

Com o codigo abaixo, assim que carrega o form o List é preenchido com o nome das tabelas do BD

Private Sub Form_Load()

Dim MyDb As Database, mYrS As Recordset

Dim tdf As TableDef, I As Integer

Set MyDb = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\db1.mdb")

  For I = 0 To MyDb.TableDefs.Count - 1

     List1.AddItem MyDb.TableDefs(I).Name

  Next I

MyDb.Close

End Sub

[Graymalkin]

Caso use ADO, dê uma olhada no ADOX (Microsoft ADO Ext. 2.x for DDL and Security).

Abraços,

Graymalkin

[webdeveloper]

Como o amigo Graymalkin disse, eu costumo usar ADOX para recuperar as tabelas, e para recuperar os campos da tabela eu utilizo o ADO.