Dim Cmd As New OleDbCommand("insert into Ventas (Producto,Cliente,Fecha,Usuario,Precio,ConDeb,Cantidad,Codigo) Values (@Producto,@Cliente,@Fecha,@Usuario,@Precio,@ConDeb,@Cantidad,@Codigo)", ConBD)

        For Each Row As DataGridViewRow In DGV.Rows
            Cmd.Parameters.Clear()
            Cmd.Parameters.AddWithValue("@Producto", DGV.CurrentRow.Cells(1).Value)
            Cmd.Parameters.AddWithValue("@Cliente", CBC.Text)
            Cmd.Parameters.AddWithValue("@Fecha", DateTime.Now.ToShortDateString)
            Cmd.Parameters.AddWithValue("@Usuario", NombreUser)
            Cmd.Parameters.AddWithValue("@Precio", CInt(DGV.CurrentRow.Cells(3).Value))
            Cmd.Parameters.AddWithValue("@ConDeb", CBPago.Text)
            Cmd.Parameters.AddWithValue("@Cantidad", CInt(DGV.CurrentRow.Cells(2).Value))
            Cmd.Parameters.AddWithValue("@Codigo", DGV.CurrentRow.Cells(0).Value)

            Try
                Cmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        Next

        Dim Cmd2 As New OleDbCommand("Select Codigo from Productos where Nombre = @Producto", ConBD)
        Cmd2.Parameters.AddWithValue("@Producto", CBP.Text)

        Try
            Codigo = Cmd2.ExecuteScalar()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

        Dim PTotal = Precio * TxtCantidad.Text

        DGV.Rows.Add(Codigo, CBP.Text, TxtCantidad.Text, PTotal, Precio)