[Resolvido]Nome das tabelas e Campos de um BD em duas lista de combinação via Vba

Boa noite Amigos

Gostaria de saber como eu faço para preencher com os nomes das tabelas de um BD em um caixa de combinação e os nomes dos campos em outra caixa de combinação.

Obrigado

Até mais...

Olá,

Veja este exemplo que pode ser adaptado a sua necessidade.

Bom estudo,

Boa Tarde le_lo28, Tudo bem

Então eu estou usando os codigos abaixo, é uma procedimento mais simple.

Private Sub ExibirTabelas()
Lista12.RowSource = ""
Dim Obj As AccessObject
Dim dbs As Object
Dim ctrlListBox As ListBox
Set dbs = Application.CurrentData
Set ctrlListBox = Me.Lista12
With ctrlListBox
For Each Obj In dbs.AllTables
.AddItem Item:=Obj.Name
Next Obj
End With
End Sub

Private Sub ExibirCampos()
Lista10.RowSource = ""
Set Bd = CurrentDb()
strSQL = "SELECT * from tabela2"
Set Rst = Bd.OpenRecordset(strSQL, dbOpenDynaset)
With Rst
For i = 0 To .Fields.Count - 1
Lista10.AddItem .Fields(i).Name
Next
End With
End Sub

Obrigado pela resposta.

Até mais...