Private Function Find(ByVal StrSearchString As String) As Boolean
 
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
 
        Dim intcount As Integer = 0
        For Each Row As DataGridViewRow In DataGridView1.Rows
            If DataGridView1.Rows(intcount).Cells(0).Value.ToString = StrSearchString Then
                DataGridView1.Rows(intcount).Selected = True                
                    Find = True
                Exit Function
            End If
            intcount += 1
        Next Row
        Find = False
    End Function

 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Find(TextBox1.Text)
    End Sub