Need Help Changing Query from SQLServer to Access VBA Format

[AccessVBAUser]

(Case
WHEN [ItemType] IN ('SPRL' , 'SPRS') AND [CompItemType] IN ('BINS' , 'LINS' , 'INS') THEN 'SF-Insert'
WHEN [ItemType] IN ('SPRL' , 'SPRS') AND [CompItemType] IN ('ESBNK', 'ESPRT' , 'ENDSH') THEN 'SF-EndSheet'
WHEN [ItemType] IN ('SPRL' , 'SPRS') AND [CompItemType] IN ('BCOV' , 'CSDE' , 'FCOV' , 'SCOV' , 'CVR' , 'CASE') THEN 'SF-Cover'
WHEN [ItemType] IN ('SPRL' , 'SPRS') AND [CompItemType] IN ('BKJWP' , 'SMWRP' , 'BXWRP', 'SMWRP' , 'BKJWP') THEN 'SF-Wrap'
WHEN [ItemType] IN ('SPRL' , 'SPRS') AND [CompItemType] IN ('JKT') THEN 'SF-Jacket'
WHEN [ItemType] IN ('SPRL' , 'SPRS') AND [CompItemType] IN ('ONLAY') THEN 'SF-Onlay'
WHEN [ItemType] IN ('SPRL' , 'SPRS') AND [CompItemType] IN ('STCKR' , 'SLIP' , 'MISC1') THEN 'SF-Other'
WHEN [ItemType] IN ( 'SMWRP' , 'JWBK' , 'BKJWP') AND [CompItemType] IN ('SMWRP' , 'JWBK' , 'BKJWP') THEN 'Wrap'
WHEN [ItemType] IN ( 'ESBNK' , 'ESPRT') AND [CompItemType] IN ('ESBNK' , 'ESPRT') THEN 'EndSheet'
WHEN [ItemType] IN ( 'TPSIG' , 'BB' , 'CIBK' , 'SCBK' , 'SEC' , 'GJOB' , 'SEBK') AND [CompItemType] IN ('SEBK' , 'TPSIG' , 'GJOB' , 'BB' , 'SEC') THEN 'OTHER'
WHEN [ItemType] IN ( 'JKT') AND [CompItemType] IN ('JKT') THEN 'JACKET'
--WHEN [ItemType] IN ('WPRL' , 'WPRS') THEN 'WEB'
ELSE 'Web'
END)
+ (CASE WHEN Coalesce([CompJobItem],0)>0 THEN '-'+ CAST([CompJobItem] AS nvarchar)
ELSE ' '
END)
AS [@ItemType],

 

[Banana]

Wouldn't it be easier just to use a stored procedure and call it via ADO. You can then get a recordset and do whatever you want with it, even binding it to the forms?