Живой поиск по БД

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim DT As New Data.DataTable 
Dim DA As OleDb.OleDbDataAdapter 
DT.Clear() 
SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Таблица1] WHERE [Фамилия] LIKE '%" & TextBox1.Text & "'")
Con.Open()
SqlCom.ExecuteNonQuery() 
DA = New OleDb.OleDbDataAdapter(SqlCom) 
DA.Fill(DT) 
Me.DataGridView1.DataSource = DT
Con.Close()
End Sub

Dim vv = (From t In ds.Tables(tbB).AsEnumerable() Select t.Field(Of String)("Name")).ToArray
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
TextBox1.AutoCompleteCustomSource.AddRange(vv)

Public Class Form1
    Friend con As New OleDb.OleDbConnection
    Friend ds As New DataSet
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            openConnection()
            'добавляем таблицу tstTb с полем Name
            addTable("tstTb")
            Dim vv = (From t In ds.Tables("tstTb").AsEnumerable() Select t.Field(Of String)("Name")).ToArray
            TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
            'можно поэксперементировать с AutoCompleteMode
            TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            TextBox1.AutoCompleteCustomSource.AddRange(vv)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub
    Sub openConnection()
        Dim dbProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;"
        'база данных test.mdb размещена в папке с программой
        Dim dbSource As String = "Data Source=" & IO.Path.Combine(Application.StartupPath, "test.mdb")
        con.ConnectionString = dbProvider & dbSource
        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            Else
                con.Close()
                con.Open()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Sub addTable(ByVal tb As String)
        Dim queryString As String = "SELECT * FROM " & tb
        Dim da As New OleDb.OleDbDataAdapter(queryString, con)
        da.Fill(ds, tb)
    End Sub
End Class