Access - Informes, URGENTE!!

Hola miren les cuento, tengo este codigo:

Dim objBD As Access.Application, objReport As Access.AccessObject
Set objBD = New Access.Application
objBD.OpenCurrentDatabase "C:\proyectos\adp1.adp", False
For Each objReport In objBD.CurrentProject.AllReports
Debug.Print objReport.name
List2.AddItem objReport.name
Next

Este codigo sirve para q busque y muestre en una lista los informes que hay en la base de datos adp1. ¿Como puedo hacerlo para que si tengo mas bases de datos con extension adp, tb me muestre sus informes, es decir, que me busque todos los informes de las bases de datos que haya en la carpete proyecots, he probado de poner esto: *.adp en la ruta linea donde pongo la ruta en el codigo, pero no me sale. Me pueden ayudar como hacerlo?. Gracias.

Para buscar y mostrar los informes de todas las bases de datos con extensión ADP que se encuentren en la carpeta "proyectos", puedes utilizar la función Dir() en combinación con un bucle. Aquí tienes un ejemplo de cómo puedes modificar tu código:


Este código utiliza la función Dir() para obtener el nombre del primer archivo ADP en la carpeta "proyectos". Luego, dentro del bucle, se abre la base de datos y se recorren los informes para mostrar sus nombres en la lista. Después de recorrer todos los informes de una base de datos, se cierra la base de datos y se continúa con el siguiente archivo ADP encontrado en la carpeta.

Espero que esto resuelva tu problema. ¡Buena suerte!