Listar todas as tabelas relacionadas

Galera é o Seguinte:
preciso listar (através de VBA) todas as tabelas que estão relacionadas num banco Access e consequentemente os respectivos nomes dos campos.
Por exemplo, a tabela CLIENTES está relacionada com a tabela PEDIDOS. Na tabela Cliente, a chave primária é o campo "CodClientes" e na tabela Pedidos, o campo "CodClientes" é chave estrangeira da primeira tabela. A relação é a ligação entre esse dois campos e assim foi gravado o relacionamento deste banco.
Só que preciso descobrir isso, através de VBA
Alguém pode me ajudar?

E aí pessoal, ninguém???