Microsoft Access 掲示板

関数だけでは難しいので、VBAでユーザー定義関数を作成することになると思います。

標準モジュールに下記のような関数を作成します。

Public Function SearchHighlight(フィールド, 検索文字列, 色 As String) As String
    Dim s As String
    s = フィールド
    If s = "" Then Exit Function
    If Nz(検索文字列, "") = "" Then
        SearchHighlight = s
        Exit Function
    End If
    Dim i
    For Each i In Split(検索文字列)
        s = Replace(Nz("<p>" & s & "</p>", ""), Chr(13), "</p><p>")
        s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>")
    Next
    SearchHighlight = s
End Function

「感想リッチテキスト」のコントロールソースを下記のように設定します。

=SearchHighlight([感想],[検索文字列])

上記で一致した文字列の背景色は黄色になります。

もし、黄色以外にしたい場合は、第３引数に指定します。
例えば水色にしたい場合は下記になります。

=SearchHighlight([感想],[検索文字列],"#7FCCE3")

色は下記などを参照して # で始まる色コードで指定します。

WEBカラー見本一覧（基本色、セーフカラー）

あっ、すみません。修正前のコードをアップしてしまいました。

s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & s & "</font>")
の部分を下記に修正してください。
s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>")

上の回答も修正しておきました。

複数文字のハイライトができました。
ですが、たとえば"キズ"で調べたいとき、もしかしたら"キズ","きず"という言葉があるかも…ということで
"キズ","きず"で検索しましたら本来、キズで登録してるはずなのに、検索したらReplaceで置き換えられてしまい、きずという言葉になってしまいます。
漢字とカナは区別できているみたいですが、ひらがなとカタカナは区別しないみたいです。

ひらがなとカタカナを区別して検索する方法はありますか？

InStr(1, s, i, 0) は最後の引数０でバイナリモードの比較になりますのでOKだと思いますが、
Replace関数の方でバイナリモードの比較にすればIf文は不要です。

    For Each i In Split(検索文字列)
        s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>", ,vbBinaryCompare)
    Next