Bueno al final encontré otra solución que me iba mejor, para ir más rapido. Es una consulta que la puedes ejecitar desde Ms ACcess mismo:
Cita: SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND
(Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name
gracias de todos modos.
Saludos!