master detail การเพิ่มข้อมูลตารางย่อยโดยใช้ datagrid

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
        Dim d_id As String

If (TabControl1.SelectedIndex = 1) Then
            Dim sql As String = "select max(d_id)+1 as did from drug  order by d_id desc  limit 0,1 "
            Dim cmd As New MySqlCommand(sql, MyConnect)
            Dim drd As MySqlDataReader
            drd = cmd.ExecuteReader()
            While drd.Read()

                d_id = drd.Item("did").ToString

            End While
 

            UseConnectDatabase()
            com.CommandText = "insert into  drug_detail (de_name,de_result,d_id)values('" & drugdetailDGV.CurrentRow.Cells(1).Value & "','" & drugdetailDGV.CurrentRow.Cells(2).Value & "' ,'" & d_id & "')"
            com.Connection = MyConnect
            com.ExecuteNonQuery()
        End If



    End Sub