Visual Basic - Tablas en ado

necesito saber que tablas hay en la base de datos access a la cual me conecto mediante ado alguien puede ayudarme osea yo se la base de datos pero no se que tablas hay como puedo saber eso

El siguiente código devuelve en r un recordset conteniendo un registro por cada tabla de la base de datos a la que se encuentra conectada la conexionado.
dim R as adodb.recordset

set r=conexionado.OpenSchema adSchemaTables