[kinook]

That works too (except = is VBScript equality, not ==). -1 (non-zero) equates to True in VBScript, and succeeded is the default status, so

If MyAccessDBResult Then Step.BuildStatus = vbldStepStatFailure

should also work.