adodc indomable

[desperada]

Necesito sacar el listado de tablas de una base de datos enlazada a un control adodc de forma parecida a como hacía con un control data:
For ind = 0 To Data1.Database.TableDefs.Count - 1
List1.List(ind) = Data1.Database.TableDefs(ind).Name
Next ind
sabeis alguien como hacerlo??? (nadie sabe) GRACIAS

[Dans]

Mira no he intentado hacerlo directamente del control ado, sin embargo te recomendaría que lo hicieras desde una variable.
Es necesario hacer referencia a Microsoft ADO Ext. 2.5 for DLL and Security

Dim cnBaseDatos As New ADODB.Connection
Dim dbBaseDatos As New ADOX.Catalog
Dim intContador As Integer

cnBaseDatos.CursorLocation = adUseClient
cnBaseDatos.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ejemplo.mdb;Persist Security Info=False"
dbBaseDatos.ActiveConnection = cnBaseDatos
For intContador = 0 To dbBaseDatos.Tables.Count - 1
List1.AddItem dbBaseDatos.Tables(intContador).Name
Next intCiclo


Espero te sirva, creo que no es lo que querias, pero es una opción.
Si tienes alguna duda mandame un mail