Заполнение DataGridView

    Private Sub BtOk_Click(sender As Object, e As EventArgs) Handles BtOk.Click
        Dim actionDoc As String
        Dim namberDoc As String
        Dim dateDoc As String
        Dim titleDoc As String
        actionDoc = ComboBox1.Text
        namberDoc = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(4).Value
        dateDoc = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(3).Value
        titleDoc = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(5).Value
        With FrmInsertDoc.DataGridView2
            .Rows.Add()
            .Rows(.Rows.Count - 1).Cells(0).Value = actionDoc
            .Rows(.Rows.Count - 1).Cells(1).Value = namberDoc
            .Rows(.Rows.Count - 1).Cells(2).Value = dateDoc
            .Rows(.Rows.Count - 1).Cells(3).Value = titleDoc
        End With
    End Sub