筛选从 Excel 文件导入到 DataGrid 的数据

问：

Dim FileLoc As String = TxtFileLoc.Text
Dim ConStr As String '= String.Empty
If FileLoc.EndsWith(".xls") Then
    ConStr = String.Format("Provider=Microsoft.Jet.Oledb.4.0;" & "Data Source={0};Extended Properties='Excel 8.0;HDR=yes'", FileLoc)
Else
    ConStr = String.Format("Provider=Microsoft.Ace.Oledb.12.0;" & "Data Source={0};Extended Properties='Excel 8.0;HDR=yes'", FileLoc)
End If
Dim Cmd As New OleDbDataAdapter("Select * from [" & ComboSheets.Text & "" & "]", ConStr)
Cmd.TableMappings.Add("Table", "Table")
Dim dt As New DataSet
Cmd.Fill(dt)
ExlDisp.DataSource = dt.Tables(0)

EXCEL 工作表中的示例数据

| SNO      | COURSE   | | ROLL NO  | NAME        | 
| -------- | -------- | | -------- | --------    |
| 1        | CZP      | | 10985    | MARK ANTONY |
| -------- | -------- | | -------- | --------    |
| 2        | CZP      | | 98651    | ANTONY G    |
| -------- | -------- | | -------- | --------    |
| 3        | CZP      | | 98666    | G PRAKASH   |

加载到 DATAGRID 后按包含“ANTONY”的名称筛选数据

加载到 DATAGRID 后按名称筛选数据（来自 TextBox-TxtFilterName），其中包含“ANTONY”