Do you have any reason to believe that the code won't work in Access? I'm quite sure it will work.
Before posting, please read how to report bug or request support effectively.
Bug reports without an attached log file are usually useless.
shellandwaitfunction integrates with this.
Call Shell(strSFTPDir & "winscp.com " & strQuote & strCommand & strQuote, vbHide)