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 & ")", ""