Dim accessApp
Set accessApp = GetObject(, "Access.Application")

On Error Resume Next
accessApp.Run "mod_FixFormBindings.FixAllFormBindings"

If Err.Number <> 0 Then
    WScript.Echo "Error: " & Err.Description
    WScript.Quit 1
Else
    WScript.Echo "Success! Form bindings fixed."
End If