I have a search need to get the EXACT Name...No LIKE function

It's currently this:

Wh = ""
    If IsNull(SearchTerm) Then SearchTerm = ""
    S = Trim(SearchTerm)
    If Left(S, 1) = """" Then ' whole phrase search
        S = Replace(S, """", "")
        Wh = "FilmName LIKE ""*" & S & "*"""
    ElseIf InStr(S, " ") <> 0 Then ' have spaces
        Wh = "FilmName LIKE ""*"
        Wh = Wh & Replace(S, " ", "*"" OR FilmName LIKE ""*")
        Wh = Wh & "*"" "
    Else ' no space
        Wh = "FilmName LIKE ""*" & S & "*"""
    End If
    If Wh <> "" Then Wh = "WHERE " & Wh



I want to remove the likes but it doesn't seem to work after...How do I make it so that it is the exact Film Name?

---

Reply from Alex Hedley:

Change
"FilmName LIKE ""*" & S & "*"""

to
"FilmName='" & S & "'"