Visual Basic - Urgente!!! ALLREPORT (Access) desde VB

Hola. Necesito saber como obtengo los controles usados en un informe de Access desde Visual Basic.
Probé con esto pero me da error:

Dim AppAccess As Access.Application
Set AppAccess = CreateObject("Access.Application")
AppAccess.OpenCurrentDatabase "C:\BASES.MDB"
Dim rpt As Report , ctl As Control
For Each rpt In AppAccess.CurrentProject.AllReports
Text1 = Text1 & rpt.Name 'muestra nombre reporte
For Each ctl In rpt.Controls 'Enumerar la colección Controles
Text1 = Text1 & ">>>" & ctl.Name & vbNewLine 'nombre del control
Next ctl
Next rpt
.....

Alguien puede ayudarme?
Desde ya muchas gracias