Я получаю ошибку в строке BS. filter(отсутствует операнд после оператора " 4*" )

---

Dim connection As OleDb.OleDbConnection = New OleDbConnection
      connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.Environment.CurrentDirectory & "\InventSystem.accdb"
      connection.Open()
      Dim da As String = "SELECT Barcode,ItemName,ItemDescription FROM Items"
      Dim dataadapter As New OleDbDataAdapter(da, connection)
      Dim ds As New DataSet
      Dim dsView As New DataView
      Dim bs As New BindingSource()
      dataadapter.Fill(ds, "Items")
      connection.Close()
      dsView = ds.Tables(0).DefaultView
      bs.DataSource = dsView
      bs.Filter = "Barcode '" & TextBox1.Text & "*' or ItemName'" & TextBox1.Text & "*' or ItemDescription '" & TextBox1.Text & "*'"
      DataGridView1.DataSource = bs
      connection.Close()

Что я уже пробовал:

Пожалуйста, помогите мне отладить эту строку кодов

---