adodc indomable

[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