Visual Basic - Listado de tablas en un ado (DIFICIL)

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

Prueba esto a ver si es lo que buscas:
Dim DB As Database
Dim TDF As TableDef

Set DB = OpenDatabase(app.path & "\base.mdb")
For Each TDF In DB.TableDefs
If TDF.Attributes = 0 Then
msgbox TDF.Name
End If
Next TDF
db.close