เพิ่ม combobox เข้าไปใน datagrid แล้ว มันบันทึกข้อมูลแต่แถวแรก

comdetail.Connection = MyConnect  ' เอาบรรทัดนี้ไว้นอกลูป ดีกว่า
For i = 0 To drugdetailDGV.Rows.Count - 1
if Not drugdetailDGV.Rows(i).IsNewRow Then
           col1 = drugdetailDGV.Rows(i).Cells(0).Value
           If col1 <> "" Then
               comdetail.CommandText = "insert into  drug_detail (de_name,de_result,d_id) values('" & drugdetailDGV.Rows(i).Cells(0).Value & "','" & drugdetailDGV.Rows(i).Cells(1).Value & "' ,'" & d_id & "')"
               comdetail.ExecuteNonQuery()

           End If
End If

       Next

Private Sub drugdetailDGV_CellValueChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles drugdetailDGV.CellValueChanged
        UseConnectDatabase()
        Dim com As New MySqlCommand
        Dim adap As New MySqlDataAdapter
        Dim ds As New DataSet
        If (TabControl1.SelectedIndex = 0) Then
            'MsgBox(e.RowIndex)
            com.CommandText = "update drug_detail set de_name='" & drugdetailDGV.CurrentRow.Cells(1).Value & "',de_result='" & drugdetailDGV.CurrentRow.Cells(2).Value & "' where de_id='" & drugdetailDGV.CurrentRow.Cells(0).Value & "'"
            com.Connection = MyConnect
            'MsgBox(e.GetHashCode())
            com.ExecuteNonQuery()
            
        End If
    End Sub

column = New DataGridViewTextBoxColumn()
            column.DataPropertyName = "de_result"
            column.HeaderText = "ผลการตรวจ"
            column.Width = 100
            Me.drugdetailDGV.Columns.Add(column)

 column = New DataGridViewComboBoxColumn
            column.DataPropertyName = "de_result"
            column.HeaderText = "ผลการตรวจ"
            column.Items.Add("พบ")
            column.Items.Add("ไม่พบ")
            column.Width = 100
            Me.drugdetailDGV.Columns.Add(column)

column = New DataGridViewComboBoxColumn
         
           column.HeaderText = "ผลการตรวจ"
           column.Items.Add("พบ")
           column.Items.Add("ไม่พบ")
           column.Width = 100
           Me.drugdetailDGV.Columns.Add(column)