Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim txt As String
        Dim index As Integer
        Dim lListBox1 As New ListBox()
 
        If ListBox1.SelectedIndex <> -1 Then
            ListBox1.SelectedIndex = -1
        End If
        txt = TextBox1.Text
         If txt <> String.Empty Then
            index = ListBox1.FindString(txt)
            If index <> -1 Then
                ListBox1.SetSelected(index, True)
            End If
        End If
        If index <> -1 Then
            ListBox1.SelectedIndex = index
            ListBox1.SetSelected(index, ListBox1.SelectedIndex)
        End If
    End Sub

[SRC VB]   Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dbList As OleDb.OleDbDataReader
        Dim sqlTree As String
        Dim dt As DataTable
        Dim dr As DataRow
        dt = New DataTable("PTable")
        myBindingSource = New BindingSource
         Try
            oApp = New ConMDB()
            sqlTree = "select id, idname from schet_fr order by idname"             'заполняем лист бокс всем, что есть
            dbList = oApp.DB.ExecCommandReader(sqlTree)
            dt.Columns.Add(New DataColumn("", GetType(String)))
            dr = dt.NewRow()
            Do While dbList.Read()
                dr(0) = dbList.GetValue(1)
                dt.Rows.Add(dr)
                dt.AcceptChanges()
                dr = dt.NewRow()
            Loop
            Dim dv As New DataView(dt)
            dv.AllowNew = True
            dv.AllowEdit = True
            dv.AllowDelete = True
            myBindingSource.DataSource = dv
            ListBox1.DataSource = myBindingSource
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.TextBox1.Focus()
        TextBox1.Text = ""
        Me.DateTimePicker1.Value = Now.AddDays(-1)
[SRC VB]

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim txt As String
        Dim index As Integer
        Dim lListBox1 As New ListBox()
          ListBox1.DisplayMember = "Column1"
        txt = TextBox1.Text
        myBindingSource.Filter = "Column1 LIKE '" + txt + "%'"
        ListBox1.DataSource = myBindingSource
         If txt <> String.Empty Then
            index = ListBox1.FindString(txt)
            If index <> -1 Then
                ListBox1.SetSelected(index, True)
            End If
        End If
        If index <> -1 Then
            ListBox1.SelectedIndex = index
            ListBox1.SetSelected(index, ListBox1.SelectedIndex)
        End If
       End Sub