ナシゴレンさん　ご返事有難うございます

ご指摘のとおりテストをしてみました　で結果は　抽出無し　でした。

 sparam.Value = "*" & Me.TextBox1.Text & "*"

デバッグで見ると　sparam.Valueは　ちゃんと　*カフェ*　 となっています　けれど、、、、、？？？

sparam.Value = "'*'" & Me.TextBox1.Text & "'*'"　など　（意味不明か？）　やっても　だめ　←は当たり前ですかね。

　        'Cm.CommandText = "SELECT * FROM T3 WHERE フォルダ  LIKE "
       　 'Cm.CommandText = Cm.CommandText & "'" & "*" & ＠Code & "*" & "'"

が　有望そうに思えたのですが　　＠Code　の＠のところで　「、、、式が必要です。」のエラーがでて
ビルトが通りません。

　お気づきのことが在りましたらよろしくお願いします。」