Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button4.Click
        Dim dv As DataView = CType(cm.List, DataView)
 
        cm.Position = dv.Find(TextBox1.Text)
 
    End Sub

    ' Find
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim dv As DataView = CType(cm.List, DataView)
        Dim opos As Integer = cm.Position
        Dim drv As DataRowView
 
        For i As Integer = 0 To cm.Count - 1
            cm.Position = i
            drv = CType(cm.Current, DataRowView)
            If drv("ContactName").ToString() = TextBox1.Text Then
                Return
            End If
        Next
        cm.Position = opos
    End Sub