Visual Basic - Dificil!!! como conocer los nombres de las tablas

Como puedo usando ADO conocer los nombres de todas las tablas que contiene determinada Base de Datos principalmente de Access aunque pudiera ser otro origen de datos ...gracias de antemano...la consulta
Select * from MSysObjects no funciona porque me dice que la aplicacion no tiene permiso de lectura sobre esta tabla....Que pudiera hacer???
Gracias

Estimado amigo:
En www.ambsoftware.com encontrarás un ejemplo inmejorable en el que encontrarás la rutina necesaria para hacer lo que buscas.
Para localizarlo utiliza el buscador de recursos de la página principal y escribe en la casilla la palabra "access".
Espero que esta información te sirva de ayuda.
Fdo.- Alvaro Marín

Depronto esto te funciona. Tu lo que quieres es trabajar con el Metadata.

adiciona Microsoft ADO Ext. 2.? for dll an security
Microsoft ADO

Option explicit
Dim Cn As ADODB.Connection
Dim tbl As ADOX.Table
Dim cat As New ADOX.Catalog

Sub Sb()
with Cn
.Provbider="MSDASQL"
.ConectionString = " Tu lo sabras"
.open
end with
Set cat.ActiveConnection = Cn
For Each tbl In cat.Tables

NombreTabla=tbl.name
next
End Sub