Dim sql2 = "Insert Into Venta (NumeroFactura,CodigoProducto,PrecioUnitario,CantidadVendida) values ( " & MAXid & "," & DGV.Item(0, i).Value & "," & DGV.Item(3, i).Value & "," & DGV.Item(2, i).Value & ")"
Dim sql3 = "Insert into Factura(NumeroFactura,Fecha,Total) values (" & MAXid & "," & "#" & String.Format("{0:dd/MM/yyyy}", DtpFecha.Value) & "#," & txtotal.Text.Replace(",", ".") & ")"