вот выдрал у себя в принципе нужно всего неск строк я их оставил незакомменчеными
тут правда использовался промежуточный контейнер который из одной программы лепит другую - импорт в себя и затем экспорт в готовый продукт
For i = 0 To db1.Containers!Modules.Documents.count - 1

' OldObjectName = db1.Containers!Modules.Documents(i).NAME
' NewObjectName = CutPrefix(OldObjectName, NewPrefix)
LinkNameClnt = OldObjectName & "~$FClnt"

' If IsOurPrefix(OldObjectName, NewPrefix) = True Or IsPrefixExist(OldObjectName) = False Then
DoCmd.TransferDatabase acImport, "Microsoft Access", Path_client_part, acModule, OldObjectName, LinkNameClnt
DoCmd.TransferDatabase acExport, "Microsoft Access", Path_mdb_program, acModule, LinkNameClnt, NewObjectName
' DoCmd.DeleteObject acModule, LinkNameClnt
' End If
Next i