Private Sub Form_FollowUp_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        FollowUp()
        Me.BringToFront()
 
        Dim cmbColumn As DataGridViewComboBoxColumn = _
          DataGridView_FollowUp.Columns(11)
        With cmbColumn
            .Items.Add("Stefan")
        End With
    End Sub

    Private Sub FollowUp()
        Dim myDate1 As Date = Format$(Me.DateTimePicker_StartDate.Value, _
          "yyyy-MM-dd")
        Dim myDate2 As Date = Format$(Me.DateTimePicker_EndDate.Value.AddDays( _
        0), "yyyy-MM-dd")
 
        Me.DataGridView_FollowUp.Rows.Clear()
        Me.DataGridView_FollowUp.AllowUserToAddRows = True
 
        For i = 0 To _
          Form_PlanningGuide.PlanningGuideDataDataGridView.Rows.Count - 1
            If Form_PlanningGuide.PlanningGuideDataDataGridView.Rows(i).Cells( _
            GetColumnNo("Date FollowUp")).Value IsNot DBNull.Value Then
                If Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                i).Cells(GetColumnNo("Date FollowUp")).Value <> "" Then
                    If Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                    i).Cells(GetColumnNo("Date FollowUp")).Value >= myDate1 And _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Date FollowUp")).Value <= myDate2 _
                        Then
                        Dim RowCount As Integer = _
                        DataGridView_FollowUp.RowCount - 1
                        DataGridView_FollowUp.Rows.Add()
                        DataGridView_FollowUp.BeginEdit(CBool(RowCount))
                        DataGridView_FollowUp.Rows(RowCount).Cells(0).Value = _
                          Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                          i).Cells(GetColumnNo("ID")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(1).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Country")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(2).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Contact comp." & _
                        "name")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(3).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Customer")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(4).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Land")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(5).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Project")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(6).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Version")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(7).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Description")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(8).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Inquiry")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(9).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Quotation")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(10).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Date FollowUp")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(11).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("PM")).Value.ToString()
                        DataGridView_FollowUp.Rows(RowCount).Cells(12).Value = _
                        Form_PlanningGuide.PlanningGuideDataDataGridView.Rows( _
                        i).Cells(GetColumnNo("Order")).Value.ToString()
                    End If
                End If
            End If
        Next
 
        Me.DataGridView_FollowUp.Update()
        Me.DataGridView_FollowUp.EndEdit()
        Me.DataGridView_FollowUp.AllowUserToAddRows = False
    End Sub