If dgv.SortedColumn.Index = 0 Then
      Dim drow() As DataRow = tbl.Select("C6401 LIKE '" & tb.Text & "%'")
      If drow.Length > 0 Then
          If dgv.SortOrder = SortOrder.Ascending Then
              dv.Sort = "C6401 ASC"
          Else
              dv.Sort = "C6401 DESC"
          End If
          Dim idx As Int32 = dv.Find(drow(0)("C6401").ToString)
          If idx > -1 Then
              dgv.ClearSelection()
              dgv.Rows(idx).Selected = True
              dgv.FirstDisplayedScrollingRowIndex = Math.Max(0, idx - 10)
          End If
      End If
End If