Public Sub New()
        MyBase.New()
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
        m_BMB = Me.BindingContext(Me.DataGridView1.DataSource, _
          Me.DataGridView1.DataMember)
    End Sub

Private SinDG As clsSearchinDatagridView = New clsSearchinDatagridView
    Private m_BMB As BindingManagerBase
    Dim strSearch As String
 
Private Sub DataGridView1_KeyPress(ByVal sender As Object, ByVal e As _
  KeyPressEventArgs) _
    Handles DataGridView1.KeyPress
 
        If e.KeyChar > " " Then
            strSearch += e.KeyChar.ToString
        End If
        Dim posi As Integer = SinDG.Search(strSearch, Me.DataGridView1)
        If posi >= 0 Then
            m_BMB.Position = posi
            'gefunden
            Me.Label15.Text = "gefunden: " & strSearch
        Else
            ' nix gefunden
            Me.Label15.Text = "nix gefunden: " & strSearch
        End If
        'Positionsanzeige im Label 
        Pos()
        'Positionsanzeige in Statusbar
        TSSLPos()
 
End Sub
 
Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) _
    Handles DataGridView1.KeyDown
 
        Select Case e.KeyCode
            Case Keys.Clear
                strSearch = ""
             Case Keys.Back
                If strSearch.Length > 0 Then strSearch = _
                strSearch.Substring(0, strSearch.Length - 1)
        End Select
 
End Sub

Public Class clsSearchinDatagridView
 
    Public Function Search(ByVal str As String, ByVal dgv As DataGridView)
 
 For i As Integer = 0 To dgv.Rows.Count - 1
            If dgv(i, 0).ToString().ToLower().StartsWith(str) Then
                'dgv.Rows(i).Selected() = True
                'dgv(1, i).Value.ToString()
                dgv.CurrentCell = dgv(1, i)
                Return i
            End If
        Next
        Return -1
 
End Function
 
End Class

VB@rchiv its the Best