vb.net从TextBox的Datagridview中搜索完全或部分匹配，并在显示完整数据网格的同时选择第一个匹配

Private Sub SearchAndSelect(ByVal searchText As String)
    Dim rowIndex As Integer = -1
    
    For Each row As DataGridViewRow In DataGridView1.Rows
        For Each cell As DataGridViewCell In row.Cells
            If cell.Value IsNot Nothing AndAlso cell.Value.ToString().Contains(searchText) Then
                rowIndex = row.Index
                Exit For
            End If
        Next
        
        If rowIndex <> -1 Then
            DataGridView1.ClearSelection()
            DataGridView1.Rows(rowIndex).Selected = True
            DataGridView1.FirstDisplayedScrollingRowIndex = rowIndex
            Exit For
        End If
    Next
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
    Dim searchText As String = TextBox1.Text.Trim()
    SearchAndSelect(searchText)
End Sub