ขอสอบถามเรื่องการ insert 2 ตาราง มันบันทึกลงแค่ตารางเดียวครับ

Private Sub process(ByVal st As String)
        If dtpPrint.Text = "" Or txtComName.Text = "" Or txtComtel.Text = "" Or dgvshow.Rows.Count = 0 Then
            MessageBox.Show("ข้อมูลไม่ครบ")
            Exit Sub
        End If
        If st = "add" Then '--เลือก insert ลงตารางก่อนบันทึก
            If MessageBox.Show("ต้องการบันทึกข้อมูลหรือไม่", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                Dim sql As String
                For i As Integer = 0 To dgvshow.Rows.Count - 1
                    sql = "INSERT INTO order_detail (Or_id, Printdata, Com_id)" & _
                    "VALUES('" & Me.txtOrderid.Text & "','" & Me.dtpPrint.Text & "','" & Me.txtcomid.Text & "')"
                    For g As Integer = 0 To dgvshow.Rows.Count - 1
                        Dim sql2 As String
                        sql2 = "INSERT INTO [order] (Or_id, Pro_id, Or_Quality)" & _
                        "VALUES('" & Me.txtOrderid.Text & "','" & Me.txtproid.Text & "','" & CInt(dgvshow.Rows(i).Cells(2).Value) & "')"
                        Dim com As New OleDbCommand(sql2, Cnn)
                        com.ExecuteNonQuery()
                    Next
                    Try
                        Dim cm As New OleDbCommand(sql, Cnn)

                        cm.ExecuteNonQuery()


                    Catch ex As Exception
                        MessageBox.Show("ไม่สามารถบันทึกข้อมูลได้", "ผลการดำเนินการ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                        Exit Sub
                    End Try
                Next
                MessageBox.Show("บันทึกข้อมูลเรียบร้อย", "ผลการดำเนินการ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

            'ElseIf st = "edit" Then
            '    If MessageBox.Show("ต้องการแก้ไขข้อมูลหรือไม่", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            '        Dim sql As String
            '        sql = " update [order] set"
            '        sql &= " Printdate = '" & dtpPrint.Text & "',"
            '        sql &= " Pro_name = '" & txtProName.Text & "',"
            '        sql &= " Or_num= " & txtamount.Value & ","
            '        sql &= " Com_name= '" & txtComName.Text & "',"
            '        sql &= " [Tel]= '" & txtComtel.Text & "',"
            '        sql &= " Or_pt= " & CDbl(txtProPrice.Text)
            '        sql &= " Or_price= " & CDbl(txttotal.Text) & ","
            '        sql &= " where Or_id ='" & txtOrderid.Text & "'"
            '        Try

            '            Dim cm As New OleDbCommand(sql, Cnn)
            '            cm.ExecuteNonQuery()
            '            MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว", "ผลการดำเนินการ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            '        Catch ex As Exception
            '            MessageBox.Show("ไม่สามารถแก้ไขข้อมูลได้", "ผลการดำเนินการ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            '        End Try
            '    End If

            'ElseIf st = "del" Then
            '    If MessageBox.Show("ต้องการลบข้อมูลหรือไม่", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            '        Dim sql As String
            '        sql = "delete from [order] where or_id ='" & txtOrderid.Text & "'"
            '        Try

            '            Dim cm As New OleDbCommand(sql, Cnn)
            '            cm.ExecuteNonQuery()
            '            MessageBox.Show("ลบข้อมูลเรียบร้อยแล้ว", "ผลการดำเนินการ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            '        Catch ex As Exception
            '            MessageBox.Show("ไม่สามารถลบข้อมูลได้", "ผลการดำเนินการ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            '        End Try
            '    End If
        End If
        'showdata()
        'If ds.Tables("data").Rows.Count = 0 Then
        Clear()
        'Else
        'detaildata(0)
        'End If
    End Sub