On Error Resume Next

Dim accessApp
Set accessApp = CreateObject("Access.Application")

accessApp.OpenCurrentDatabase "C:\Users\alexi\Documents\projects\timetrack-pro\db\TimeTrackPro.accdb"

WScript.Echo "=== Deleting fake Form_* Type 1 modules ==="

Dim vbProj
Set vbProj = accessApp.VBE.VBProjects(1)

Dim comp
For Each comp In vbProj.VBComponents
    If Left(comp.Name, 5) = "Form_" And comp.Type = 1 Then  ' Type 1 = Standard Module
        WScript.Echo "Deleting fake module: " & comp.Name & " (Type " & comp.Type & ")"
        vbProj.VBComponents.Remove comp
    End If
Next

WScript.Echo "Done! All fake modules deleted."

accessApp.CloseCurrentDatabase
accessApp.Quit
Set accessApp = Nothing