dt.DefaultView.RowFilter = string.Format("Name Like '{0}*'", TextBox1.Text)

var data = list.Where(Function(s) s.Name.StartsWith(x.Name.StartsWith(TextBox1.Text)) _
               .ToList()
listBox1.DataSource = New BindingList(Of Student)(result)