Public Function updBase()
Dim rs1 As Object
Dim rs2 As Object
Set db = OpenDatabase("здесь путь к файлу форм")
Call HasToBeRefreshed(lngVersionOnServer, lngVersionOnC)
If lngVersionOnServer > lngVersionOnC Then
    MsgBox ("На сервере есть обновления")
    Else
    Set db = Nothing
    Exit Function
    End If
    
mySQL = "SELECT updList.* FROM updList WHERE updList.updID = " & lngVersionOnServer
'пояснение: в сетевом файле есть таблица updList вида "номер версии(updID) - имя модуля(updModul) - тип модуля(updType)"
'в котором лежит перечень файлов, которые нужно обновить в рамках обновления №...
Set rs2 = db.OpenRecordset(mySQL)
Path = "путь до папке с обновлениями\update\" & lngVersionOnServer & "\" 'файлы для обновления лежит в папках с именем=№обновления
db = "путь до сетевого файла с таблицами"
Do While Not rs2.EOF
    On Error Resume Next
    Select Case rs2.updType 'сделал case чтобы указывать разные project type в DoCmd.DeleteObject
        Case "bas"
        DoCmd.DeleteObject 5, rs2.updModul
        Case "cls"
        'вот здесь сложность, не могу удалить Form_...
        End Select

    Dim strFile As String
    Dim strPath As String
    Dim strProject As String
    
    strFile = rs2.updModul & "." & rs2.updType
    strPath = Path & strFile
    Debug.Print strPath
'здесь импортирую нужный файл
    If Len(Dir(strPath)) > 0 Then
        'VBE.ActiveVBProject.VBComponents.Import strPath
        VBE.VBProjects("code for ATM").VBComponents.Import strPath
        DoCmd.RunCommand acCmdCompileAndSaveAllModules
        Else
        MsgBox "File not found: " & strPath, vbOKOnly + vbCritical, "Oops!"
        End If
    rs2.MoveNext
    Loop
    
End Function
'здесь полностью скопипасченная функция сверки версий
Public Function HasToBeRefreshed(lngVersionOnServer, lngVersionOnC) As Boolean

Dim wrk As Workspace
Dim dbs As Database, cnt As Container
Dim doc As Document, prp As Property
'Dim lngVersionOnServer As Long
'Dim lngVersionOnC As Long

Const conPropertyNotFound = 3270    ' Property not found error.

On Error GoTo SetCustom_Err
    Set wrk = DBEngine.CreateWorkspace("", "Admin", "")
    Set dbs = wrk.OpenDatabase("путь до локального файла")
    Set cnt = dbs.Containers!Databases
    Set doc = cnt.Documents!UserDefined
    Set prp = doc.Properties("DB Version")
    lngVersionOnC = prp.Value
   

    Set dbs = wrk.OpenDatabase("путь до сетевого файла")
    Set cnt = dbs.Containers!Databases
    Set doc = cnt.Documents!UserDefined
    Set prp = doc.Properties("DB Version")
    lngVersionOnServer = prp.Value

    Set prp = Nothing
    Set doc = Nothing
    Set cnt = Nothing
    Set dbs = Nothing
    Set wrk = Nothing

    'HasToBeRefreshed = (lngVersionOnServer > lngVersionOnC)

    Exit Function


SetCustom_Err:
    Beep
    If Err = conPropertyNotFound Then
        MsgBox "There is no information of the DB Version.", vbExclamation
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

    HasToBeRefreshed = False

End Function