On Error Resume Next

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

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

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

WScript.Echo "=== Deleting Form_* modules ==="

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: " & comp.Name
        vbProj.VBComponents.Remove comp
    End If
Next

WScript.Echo "Done!"

accessApp.CloseCurrentDatabase
accessApp.Quit
Set accessApp = Nothing