insert ข้อมูล 2 record ลงในตารางเดียวกัน โดยให้มีค่า id เดียวต้องทำยังไงครับ

If Not Session("cartItems") Is Nothing Then
            Cmd.Parameters.Clear()
            Dim carts As ArrayList = Session("cartItems")
            Cmd.Connection = mUtilities.getConnection
            Cmd.Connection.Open()
            Dim dread As SqlDataReader
            For i As Integer = 0 To carts.Count - 1
                Dim citem As CartItem = carts(i)
                Cmd.CommandText = "SELECT Price,ProductName from Product where ProductID=" & citem.ProductKey
                dread = Cmd.ExecuteReader

                If dread.Read Then
                    productid = citem.ProductKey
                    productname = dread("ProductName")
                    quantity = citem.ProductQuantity
                    price = CDec(dread("Price"))
                    totalprice = CDec(dread("Price") * citem.ProductQuantity)

                    strInsert = " insert into _Order(OrderDate,CusID,FName,LName,Email,TransportAddress,TransportSubDistrict," & _
                    " TransportDistrict,TransportProvince,TransportZipcode,TransportPhoneNo,ProductID,ProductName,Quantity,Price," & _
                    " OrderPrice, paymentType, DeliveryPrice, TotalPrice, OrderStatus, PaymentStatus)" & _
                    " values('" & CStr(orderdate) & "','" & Session("CusID") & "','" & Me.txtFName.Text & "','" & Me.txtLName.Text & "'," & _
                    " '" & Me.txtEmail.Text & "','" & Me.txtTransportAddress.Text & "','" & Me.txtSubDistrict.Text & "','" & Me.txtDistrict.Text & "'," & _
                    " '" & Me.txtProvince.Text & "','" & Me.txtZipcode.Text & "','" & Me.txtPhoneNo.Text & "','" & productid & "'," & _
                    " '" & productname & "','" & quantity & "','" & price & "','" & CDec(Me.lblTotalPrice2.Text) & "'," & _
                    " '" & paymentType & "','" & CDec(Me.lblShipping.Text) & "','" & CDec(Me.lblNet.Text) & "','" & orderstatus & "'," & _
                    " '" & paymentstatus & "')"

                    With objCmd
                        .Connection = objConn
                        .CommandText = strInsert
                        .CommandType = CommandType.Text
                    End With
                    Try
                        objCmd.ExecuteNonQuery()

                    Catch ex As Exception
                        MsgBox(ex.Message & ex.StackTrace)
                        MsgBox("ไม่สามารถบันทึกการสั่งสินค้าได้")
                        'Throw ex
                        Return False
                    End Try
                End If
                dread.Close()

            Next
            Return True
        End If