Need string delimiters (apostrophe or doubled quotes). Don't really need SEARCHTEXT variable. Query is a reserved word. Use a different name for variable.
strQry = "'*" & Me.SrchTxt & "*'"
Still need literal text enclosed in quote marks and concatenate to variable.
Code:
DoCmd.ApplyFilter , "[StatusCurrent] = 'Active'" & _
" And ([Item] Like " & Query & _
" Or [SS_Item] Like " & Query & _
" Or [Mfg Itm ID] Like " & Query & _
" Or [SupplierItemID] Like " & Query & _
" Or [SS_description] Like " & Query & _
" Or [PSDescription] Like " & Query & ")", ""
Else
DoCmd.ApplyFilter , "[Item] Like " & Query & _
" Or [SS_Item] Like " & Query & _
" Or [Mfg Itm ID] Like " & Query & _
" Or [SupplierItemID] Like " & Query & _
" Or [SS_description] Like " & Query & _
" Or [PSDescription] Like " & Query & ")", ""