提示コードの

sparam.Value = Me.TextBox1.Text

の部分を、例えば

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

にしてみてください。
これで、例えばMe.TextBox1.Text の内容が"カフェ"であれば、
@Codeの内容は"*カフェ*"になり、
Cm.CommandText = ("SELECT * FROM T3 WHERE フォルダ  LIKE @Code")
の構文が使えます。

あともう少しです。