Bom dia.
Execute a seguinte expressão:
SHOW TABLES
Exemplo de utilização. A função Conecta_BD, conecta ao MySql e envia instrução ao Banco:
varMySql = "show tables"
Conecta_BD (varMySql)
While myRS.EOF = False
MsgBox myRS!tables_in_cadastros
myRS.MoveNext
Wend
Desta maneira, será retornado todas as tabelas existentes no seu Banco de dados.
Qualquer dúvida,
Almir