Копирование всех форм из другой базы Access

[MegaMozg]

Доброго времени суток.
Возникла следующая необходимость:
нужно перенести (скопировать) из одной базы в другую все формы кроме повторяющихся (по имени). Проделывал аналогичную операцию для таблиц:

Sub КопированиеВсехТаблиц(ПутьКИсточнику)
    Dim db As Database
    Set db = OpenDatabase(ПутьКИсточнику)
    Dim iFlagImport As Boolean
    For Each qdf In db.TableDefs
        iFlagImport = True
        For Each qdf2 In CurrentDb.TableDefs
            If (qdf.Name = qdf2.Name) Then iFlagImport = False
        Next qdf2
        If iFlagImport Then Call ЗагрузкаТаблицы(ПутьКИсточнику, qdf.Name)
    Next qdf
    db.Close
    Call КопированиеСвязей(ПутьКИсточнику)
End Sub

А вот с формами не канает -- подскажите как.

P.S.: По форуму (и не только этому) запарился искать -- подскажите хотяб куда рыть.

Спасибо.
Алексей.

[MegaMozg]

Решение найдено

Sub КопированиеФорм(ПутьКИсточнику)
    Dim appAccess As New Access.Application
    appAccess.OpenCurrentDatabase (ПутьКИсточнику)
    Dim iFlagImport As Boolean
    For Each qdf In appAccess.CurrentProject.AllForms 'b.AllForms
        iFlagImport = True
        For Each qdf2 In CurrentProject.AllForms
            If (qdf.Name = qdf2.Name) Then iFlagImport = False
        Next qdf2
        If iFlagImport Then Call ЗагрузкаФормы(ПутьКИсточнику, qdf.Name)
    Next qdf
    appAccess.CloseCurrentDatabase
    Set appAccess = Nothing
End Sub