البحث فى داتا جرايد

للاسف انا حولت البحث ولم اجد مطلوب لو معك رابط موضوع يفدنى اكون شاكر 

عليكم السلام ورحمة الله وبركاته

تفضل أخي العزيز

Dim sRowIndex As Integer = 0

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If DataGridResults.Rows.Count = 0 Then Exit Sub

        Dim i2 As Integer
        i2 = DataGridResults.Rows.Count
        Dim tmpStr As String = Trim(txtFind.Text)

        For i As Integer = CInt(sRowIndex) To DataGridResults.Rows.Count - 1

            If InStr(1, DataGridResults.Rows(i).Cells(1).Value.ToString, UCase(tmpStr)) > 0 Then 'Search UserName
                DataGridResults.MultiSelect = False
                'Once you have found what you want then do:
                DataGridResults.Rows(i).Selected = True
                'DataGridResults.TopItem = DataGridResults.Rows(i)
                DataGridResults.FirstDisplayedScrollingRowIndex = DataGridResults.SelectedRows(0).Index
                DataGridResults.Focus()
                sRowIndex = DataGridResults.Rows(i).Index + 1
                If i < i2 Then Button1.Text = "التالي"
                Button1.Tag = i
                'If i = i2 Then Exit For
                If i = i2 Then Button1.Enabled = False
                Exit Sub
            End If
        Next
        With Me.Button1
            .Text = "بحث"
            .Tag = -1
            .Enabled = False
            MsgBox("انتهى البحث ", vbExclamation + MsgBoxStyle.MsgBoxRight, "تنبيه")
            sRowIndex = 0
            Exit Sub
        End With

        With Me.txtFind
            .Focus()
            .SelectionStart = Len(.Text)
        End With
    End Sub

 Private Sub txtFind_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtFind.TextChanged

        With Button1
            .Tag = -1
            .Text = "بحث"
            sRowIndex = 0
        End With
        If Trim(txtFind.Text) <> vbNullString Then
            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub