"At one end of the system," Steve A writes "we have a fairly simple HTML-form that displayed a handful of shipping-related fields. At that the other end, there's a database table that pretty much matches those fields one-to-one. But in the middle.... there's a lot more."

"It's so hard to even begin describing our systems architectural problems, let alone using code to illustrate them. So instead, I'll just share this single line — a function definition — from a VB6 .dll that's called a as a plug-in by another VB6 .dll, which is in-turn called by a VB6 .exe that runs as a service. This function calls a single stored procedure, which in turn calls another stored procedure that call other stored procedures. But eventually, a row gets inserted."

Function InsertXMLShipment( _
    ByVal GMImportId_fk As Variant, ByVal nShpId As Variant, _
    ByVal nShpConConsigneeId As Variant, ByVal nShpConShipperId As Variant, _
    ByVal nShpConBillId As Variant, ByVal fShpMiles As Variant, _
    ByVal dtShpRequestedPickup As Variant, ByVal dtShpRequestedPickupDt As Variant, _
    ByVal sShpRequestedPickupTime As Variant, ByVal dtShpRequestedDelivery As Variant, _
    ByVal dtShpRequestedDeliveryDt As Variant, ByVal sShpRequestedDeliveryTime As Variant, _
    ByVal dtShpPickup As Variant, ByVal dtShpPickupDt As Variant, ByVal sShpPickupTime As Variant, _
    ByVal dtShpDelivery As Variant, ByVal dtShpDeliveryDt As Variant, 
    ByVal sShpDeliveryTime As Variant, ByVal bShpAirRide As Variant, ByVal bShpTarps As Variant, _
    ByVal sShpPO As Variant, ByVal sShpOrderedBy As Variant, ByVal sShpNotes As Variant, _
    ByVal nShpCarIdFd As Variant, ByVal sShpTrailer As Variant, ByVal sShpBol As Variant, _
    ByVal fShpCarPieces As Variant, ByVal dtShpRequestedPickupEnd As Variant, _
    ByVal dtShpRequestedPickupEndDt As Variant, ByVal sShpRequestedPickupEndTime As Variant, _
    ByVal dtShpRequestedDeliveryEnd As Variant, ByVal dtShpRequestedDeliveryEndDt As Variant, _
    ByVal sShpRequestedDeliveryEndTime As Variant, ByVal sShpContainerProject As Variant, _
    ByVal sShpGMContact As Variant, ByVal sShpGMContactPhone As Variant, _
    ByVal dtShpSupplierPickup As Variant, ByVal dtShpSupplierPickupDt As Variant, _
    ByVal sShpSupplierPickupTime As Variant, ByVal sShpSupplierBOL As Variant, _
    ByVal nShpStatusFd As Variant, ByVal sEqtEquipmentType As Variant, _
    ByVal sComType As Variant, ByVal fShpInvoicedFd As Variant, ByVal sStaStatus As Variant, _
    ByVal nComId As Variant, ByVal nEqtId As Variant, ByVal nStaId As Variant, _
    ByVal sCayType As Variant, ByVal nCayId As Variant) As Boolean