主题：阿可学艺[010]：如何筛选出字段中包含某字符串的记录

如何进行包含查找，筛选出字段中包含某字符串的记录？如下：

控件TextBox1接受了用户输入的字段，希望筛选出[名称]中包含该字符串的记录

Dim Str1 As String = Forms("窗口1").Controls("TextBox1").Value.Trim()
If Str1 <> "" Then
    Tables("表1").Filter ="[名称].Contains(Str1)"
End If

请问：这段程序有哪些错误？请指正。