Informes URGENTE!!

jose
13 de Julio del 2004
Hola miren les cuento, tengo este codigo:

Dim objBD As Access.Application, objReport As Access.AccessObject
Set objBD = New Access.Application
objBD.OpenCurrentDatabase "C:proyectosadp1.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.