Hello my friends, I need help regarding this table. When I add the first product, it appears for me in the data card view,

Sub AddTOCart()
     Try
         If txtQuantity.Text = String.Empty Or txtQuantity.Text = "0" Then Return
         Dim CartDate As String = Now.ToString("yyyy/MM/dd")
         cn.Open()
         cm = New SqlCommand("insert into tblCart (CartInvoice,CartProduct,CartPrice,CartQuantity,CartDate,CartUser)values(@CartInvoice,@CartProduct,@CartPrice,@CartQuantity,@CartDate,@CartUser)", cn)
         With FormSales
             cm.Parameters.AddWithValue("CartInvoice", .lblInvoice.Text)
             cm.Parameters.AddWithValue("CartProduct", lblPID.Text)
             cm.Parameters.AddWithValue("CartPrice", CDbl(LblPrice.Text))
             cm.Parameters.AddWithValue("CartQuantity", CInt(txtQuantity.Text))
             cm.Parameters.AddWithValue("CartDate", CartDate)
             cm.Parameters.AddWithValue("CartUser", StrUser)
             cm.ExecuteNonQuery()
             cn.Close()
             cn.Open()
             cm = New SqlCommand("update tblCart set CartTotal = CartPrice * CartQuantity where CartInvoice like '" & .lblInvoice.Text & "'", cn)
             cm.ExecuteNonQuery()
             cn.Close()
             .txtSearch.Focus()
             .txtSearch.SelectionStart = 0
             .txtSearch.SelectionLength = .txtSearch.Text.Length
             .LoadCart()
         End With
         Me.Dispose()
     Catch ex As Exception
         cn.Close()
         MsgBox(ex.Message, vbCritical)
     End Try
 End Sub
*******
Sub LoadCart()
    Try
        Dim i As Integer = 0
        Dim total As Double = 0
        DataGridView1.Rows.Clear()
        cn.Open()
        cm = New SqlCommand("SELECT * FROM tblCart AS r INNER JOIN tblProduct AS p ON r.CartProduct = ProductID INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID INNER JOIN tblType AS t ON p.ProductType = TypeID where CartInvoice like '" & lblInvoice.Text & "'", cn)
        dr = cm.ExecuteReader
        With dr.Read
            i += 1
            DataGridView1.Rows.Add(i, dr.Item("CartID").ToString, dr.Item("CartInvoice").ToString, dr.Item("GenericName").ToString, dr.Item("BrandName").ToString, dr.Item("FromulationName").ToString, dr.Item("ClassificationName").ToString, dr.Item("TypeName").ToString, dr.Item("ProductSalePrice").ToString, dr.Item("CartQuantity").ToString, Format(CDate(dr.Item("ProductDate").ToString), "yyyy/MM"), dr.Item("CartTotal").ToString)
            total += CDbl(dr.Item("CartTotal").ToString)
        End With
        dr.Close()
        cn.Close()
        lblDisplayTotal.Text = Format(total, "#,##0")
    Catch ex As Exception
        cn.Close()
        MsgBox(ex.Message, vbCritical)
    End Try
End Sub

DataGridView1.Rows.Add(i, dr.Item("ProductID").ToString