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 "=== VBA Components ==="
Dim comp
For Each comp In vbProj.VBComponents
    WScript.Echo comp.Name & " - Type: " & comp.Type & " (" & GetTypeName(comp.Type) & ")"
Next

Function GetTypeName(typeNum)
    Select Case typeNum
        Case 1: GetTypeName = "Standard Module"
        Case 2: GetTypeName = "Class Module"
        Case 3: GetTypeName = "MSForm"
        Case 11: GetTypeName = "ActiveX Designer"
        Case 100: GetTypeName = "Document (Form/Report)"
        Case Else: GetTypeName = "Unknown"
    End Select
End Function

accessApp.Quit
Set accessApp = Nothing