Выделение строк в datagridview

    Dim a As Boolean = False
        Dim Row As DataGridViewRow
        Dim str_f As String = "search text"
        For Each Row In DataGridView1.Rows
            If (Row.Cells(2).Value.ToString().Contains(str_f)) Then
                DataGridView1.CurrentCell = Row.Cells(1)
                DataGridView1.Rows(Row.Index).Selected = True
                a = True
                DataGridView2.rows.add(DataGridView1.Rows(Row.Index).cells(0).value)
            End If
        Next

 
           Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim SearchText As String = "search_text"
        For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Item(0, i).Value = SearchText Then
                RelocateRows(i)
                Exit For
            End If
        Next
    End Sub
    Sub RelocateRows(ByVal ind As Integer)
        For i = ind To DataGridView1.Rows.Count - 1
            DataGridView2.Rows.Add()
            For j = 0 To DataGridView1.Columns.Count - 1
                DataGridView2.Item(j, DataGridView2.Rows.Count - 1).Value = DataGridView1.Item(j, i).Value
            Next
        Next
    End Sub

     DataGridView1.AllowUserToAddRows = False
        DataGridView2.AllowUserToAddRows = False

Dim SearchText As String = "Search_Text"
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Entry As Integer = 0
        For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Item(0, i).Value = SearchText Then
                Entry += 1
                If Entry = 1 Then
                    RelocateRows(i, DataGridView2)
                ElseIf Entry = 2 Then
                    RelocateRows(i, DataGridView3)
                End If
            End If
        Next
    End Sub
    Sub RelocateRows(ByVal ind As Integer, ByVal dgv As DataGridView)
        For i = ind To DataGridView1.Rows.Count - 1
            If DataGridView1.Item(0, i).Value <> SearchText Then
                RowAdd(i, dgv)
            Else
                If i <> ind Then
                    Exit Sub
                Else
                    RowAdd(i, dgv)
                End If
            End If
        Next
    End Sub
    Sub RowAdd(ByVal i As Integer, ByVal dgv As DataGridView)
        dgv.Rows.Add()
        For j = 0 To DataGridView1.Columns.Count - 1
            dgv.Item(j, dgv.Rows.Count - 1).Value = DataGridView1.Item(j, i).Value
        Next
    End Sub