Devolver nombres de campos

-=Aldo=-
23 de Enero del 2004
Tengo conexión a una DB con ADO, y quiero permitir buscar por uno de los campos; el usuario elige. Para ello inserté un combobox, pero no sé como cargar los nombres de los campos (mediante una consulta) al combobox, que propiedad tengo que asignar o si hay algùn procedimiento o consulta SQL alguien me podrìa ayudar? Como les dije necesito que la consulta devuelva los nombres de los campos de mi tabla. Gracias!!!

sdemingo
23 de Enero del 2004
Hola,

Private Sub Form_Load()

Dim MDB As Database
Dim Campo As Field
Dim tb As TableDef

Set MDB = Workspaces(0).OpenDatabase(App.Path & "agenda.mdb")
For Each tb In MDB.TableDefs
List1.AddItem tb.Name
For Each Campo In tb.Fields
List1.AddItem vbTab & Campo.Name
Next Campo
Next tb

End Sub

Te mando el ejemplo a tu correo

saludos
sdemingo