hey guys am working on a program at the minute and its not running properly lol basically i've got an update record function but my filter button isn't working properly and i can't figure out why grrr" if any one could help me with this it would be greatly appreciated.

the code that am looking to get working is higlighed below in red the specific part of the code am getting an error with is this

[CustomersBindingSource.Filter = _
"CompanyName LIKE ’%" & filter.Trim & "%’ "]

__________________________________________________ _______________________
PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
'TODO: This line of code loads data into the 'NorthwindDataSet.Customers' table. You can move, or remove it, as needed.
Me.CustomersTableAdapter.Fill(Me.NorthwindDataSet.Customers)
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
EndSub
PrivateSub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
EndSub
PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'recognise record change with if statement'
If NorthwindDataSet.HasChanges Then
Dim DT As NorthwindDataSet.CustomersDataTable
DT = NorthwindDataSet.Customers.GetChanges()
If DT IsNotNothingThen
Try
CustomersTableAdapter.Update(DT)
'catches errors in update'
Catch ex As Exception
MsgBox(ex.Message)
ExitSub
EndTry
'message box displays total number of updates'
MsgBox(DT.Rows.Count.ToString & _
" rows updated successfully.")
EndIf
EndIf
EndSub


PrivateSub DataGridView1_CellContentClick_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
EndSub
PrivateSub Filter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnFilter.Click
Dim filter AsString
filter = InputBox("Enter Company name")
CustomersBindingSource.Filter = _
"CompanyName LIKE ’%" & filter.Trim & "%’ "
EndSub
PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim newRow AsNew DataRow = Customers.NewRow
newRow.Item("CompanyName") = "new company name"
newRow.Item("CustomerName") = "new customer name"
newRow.Item("ContactName") = "new contact name"
DS.Customers.Rows.Add(newRow)
EndSub
EndClass


Thanks in advance Chris1012

__________________
in opposite world i love programming