Как выдрать макросы из Access?

[Alexey1978]

Немного прелюдии.
Есьт документ Excell или Word. В этом документе есть некий макрос. Я сваял прогу, которая позволяет выдрать строки макроса из этого документа. Вот листинг:
Dim с As Integer
Dim fil As String

Public qwerty As Object

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set qwerty = CreateObject("Excel.Application")
Set qwerty = GetObject("d:\book1.xls")
c = qwerty.VBProject.VBComponents.Count
For i = 1 To c
fil = "D:\temp\code" & Str(i) & ".bas"
qwerty.VBProject.VBComponents.Item(i).export fil
Next i
Set qwerty = Nothing
Label2.Caption = c
Label3.Caption = "Все макросы сохранены"
End Sub

Она прекрасно работает с доками Word и Excell. Теперь вопрос: как сделать подобную прогу, чтобы она моглда выдрать макросы из БД Access? Выше приведенная прога не работает. Если кто-то что-то знает, подскажите, плиз...

[RayShade]

Я бы попробовал, Application.CodeProject.AllMacros

Где Application это Access.Application

[Alexey1978]

Спасибо, попробую...