Private Sub PlanningGuideDataDataGridView_RowHeaderMouseClick(ByVal sender _
      As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles _
      PlanningGuideDataDataGridView.RowHeaderMouseClick
 
        If e.Button = System.Windows.Forms.MouseButtons.Right Then
            With PlanningGuideDataDataGridView
                Dim values(.Columns.Count - 1) As Object
                'Daten aus Zeile lesen 
                For i As Integer = 0 To .Columns.Count - 1
                    values(i) = .Rows(e.RowIndex).Cells(i).Value
                Next i
                'Daten als neue Zeile im 2.Grid anfügen
                PlanningGuideDataDataGridView.Rows.Add(values)
            End With
        End If
 
End Sub

Private Sub Button_ok_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button_ok.Click
 
        Form_PlanningGuide.UpDates()
 
        If ComboBox_ProjectManager.Text <> "" Then
 
            Dim newCustomersRow As DataRow = _
              Form_PlanningGuide.PlanningGuideDataSet.Tables( _
              "PlanningGuideData").NewRow()
 
            newCustomersRow("Country") = TextBox_Country.Text
            newCustomersRow("Company") = TextBox_Company.Text
            newCustomersRow("Company ID") = TextBox_CompanyID.Text