为什么此访问Vb代码中的代码给我语法错误编译器错误

Question

Private Sub txtSearch_Change()

If Frame1 = 1 Then 'Code
   strRowsource = "select [Code],[Category],[product]" & "from giggly " & _
   " where[Code] Like '* "&Me.txtSearch.Text&" *'"`
End If
List1.RowSource = strRowsource
End Sub

Answer 1

[from之前和where之后需要一个空格。还需要在“＆”号周围放置空格，但在星号周围不需要空格。

如果要在文本框中键入每个字符时修改列表框，请使用Change事件和Text属性。否则，请使用AfterUpdate，然后不使用Text属性，请使用Value。由于“值”是默认属性，因此不必指定。

也删除不必要的连接。

strRowsource = "SELECT [Code],[Category],[product] FROM giggly " & _
   "WHERE [Code] Like '*" & Me.txtSearch & "*'"