Visual Basic - Lista de tablas

Hola.
Tengo un objeto adob.connection y quisiera saber las tablas que contiene la base de datos.

Como lo hago?

Realmente no es un mdb, la conexion la hago a un libro excel. Lo abro y accedo a sus hojas, pero sólo si se previemente el nombre. Me interesa acceder a la primera cualquiera que sea su nombre.

Gracias.

Fijate con:

Dim rst As Recordset

Set rst = ObjetoConnection.OpenSchema(adSchemaTables)

Y fijate que contiene ese recordset.

Gracias Cecilia.

Funciona perfectamente, pero con un pequeño problema (para mi caso). Me da la lista de hojas del libro excel, pero ordenadas alfabeticamente. Yo necesito saber cual es la primera, y no hay nada en este recordset que me lo indique. De todas maneras gracias igualmente.

¿No puedes acceder al libro utilizando OLE Automation? sería más simple.

Supongo que tendré que hacerlo así. Lo que pasa es que no se como funciona, y el ADO mas o menos si. Pero tendré que ponerme las pilas y aprender. Muchas gracias por tu ayuda.

Particularmente para mi es más simple que ADO para el caso de Excel, primero agregas la referencia a tu proyecto y luego haces:

Dim objExcel As Excel.Application

Set objExcel = New Excel.Application

Y luego grabas en Excel una macro con lo que quieres hacer y copias el código, por ejemplo para colocar un texto en la celda A1 de un libro nuevo:

With objExcel
.Workbooks.Add
.Range("A1").Select
.ActiveCell.Formula1RC1="Prueba"
.Visible=True
End With