databind list box filter

this is my code

Public Class Form1

Dim tblcontactconnection As New OleDb.OleDbConnection
Dim provider As String
Dim dbtblcontact As String
Dim dstblcontact As New DataSet
Dim datblcontact As OleDb.OleDbDataAdapter
Dim SqlQuery As String
Dim NumberofRows As Integer
Dim NumberRow As Integer = 0
Dim dt As DataTable


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
provider = "Provider=Microsoft.Ace.Oledb.12.0;"
dbtblcontact = "Data Source =..\data\Addressbook.accdb "
tblcontactconnection.ConnectionString = provider & dbtblcontact
tblcontactconnection.Open()
SqlQuery = "SELECT * FROM tblcontact"
datblcontact = New OleDb.OleDbDataAdapter(SqlQuery, tblcontactconnection) '
datblcontact.Fill(dstblcontact, "tblcontact")
tblcontactconnection.Close()
Me.BindingSource1.DataSource = dstblcontact.Tables("tblcontact")
Me.ListBox1.DisplayMember = "name"
Me.ListBox1.DataSource = Me.BindingSource1

End Sub


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

'ListBox2.Visible = TextBox1.Text <> ""
ListBox2.Items.Clear()
Me.BindingSource1.Filter = "name LIKE '%" & TextBox1.Text & "%'"

End Sub
End Class