On Error Resume Next

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

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

' Fix frm_SaisieTemps RecordSource
accessApp.DoCmd.OpenForm "frm_SaisieTemps", 2  ' acDesign
WScript.Sleep 500
accessApp.Forms("frm_SaisieTemps").RecordSource = "tbl_Temps"
accessApp.DoCmd.Close 2, "frm_SaisieTemps", 1
WScript.Echo "frm_SaisieTemps RecordSource set to tbl_Temps"

' Cleanup
accessApp.CloseCurrentDatabase
accessApp.Quit
Set accessApp = Nothing