Error Writing CSV File - Trailing Delimiters Dropped from Final Lines

I am using VB to create a CSV file that has a header line with more populated columns of data than the detail lines. When I try to import the file into another app, I get an EOF error. The csv file looks fine when I open it in notepad. If I open it in Excel and save as a csv, then it is apparent that the column placeholders for the empty trailing columns of the last detail lines in the file are lost. The trailing commas from the last few details lines are missing, but they are present for all other details lines in the file.

I have tried 1) adding a carriage return line feed character (vbcrlf) after the last detail line and it had no impact on correcting the formatting. Also have 2) added a dummy header line after the last detail line and this does work to save the trailing commas on those detail lines but when I then re-open the file and copy all records except that last header line to a new file, the new file has the same messed up formatting as the original.

Here is an example of the last two header/detail combo lines in the csv file after I have opened in Excel and re-saved as csv:

1,1,56,CASH,INV-0401429,1,1080770675,,,20040330,1,1,3.51,0
2,1,56,20,-2.29,560400-13,,,,,,,,
2,1,56,40,3.21,460400-13,,,,,,,,
2,1,56,60,0.27,211001,,,,,,,,
2,1,56,80,0.03,211002,,,,,,,,
2,1,56,100,2.29,140005,,,,,,,,
3,1,56,1,3.51,20040429,,,,,,,,
1,1,57,CC056,INV-0401398,1,1080770675,,,20040330,1,1,39.38,0
2,1,57,20,-18.75,581300-14,,,,,,,,
2,1,57,40,37.5,430200-14
2,1,57,60,18.75,140008
2,1,57,80,1.88,430300-14
3,1,57,1,39.38,20040429

Here are the basics of the code I am using to create the file:

Open csvStrname For Output As #1

        'Write out three header records with field names.
        Write #1, "RECTYPE", "CNTBTCH", "CNTITEM", "IDCUST", "IDINVC", "TEXTTRX", "ORDRNBR", "CUSTPO",  
              "INVCDESC", "DATEINVC", "SWTAXBL", "SWMANTX", "AMTDUE", "AMTTAXTOT"
        Write #1, "RECTYPE", "CNTBTCH", "CNTITEM", "CNTLINE", "AMTEXTN", "IDACCTREV"
        Write #1, "RECTYPE", "CNTBTCH", "CNTITEM", "CNTPAYM", "AMTDUE", "DATEDUE"
   
        'Open each export file to be processed and combined into a single file.
        Dim strInvNumber As String
        Dim rs1 As ADODB.Recordset
        Dim rs2 As ADODB.Recordset
        Dim rs3 As ADODB.Recordset
   
        Set rs1 = New ADODB.Recordset
        Set rs2 = New ADODB.Recordset
        Set rs3 = New ADODB.Recordset
   
        rs1.Open "select * from [AR Header Export] order by ItemCount", cnn, adOpenDynamic, adLockOptimistic, adCmdText
        rs2.Open "select * from [AR Type 2 Export] order by ItemCount, LineCount", cnn, adOpenDynamic,
                adLockOptimistic, adCmdText
        rs3.Open "select * from [AR Type 3 Export] order by ItemCount", cnn, adOpenDynamic, adLockOptimistic, adCmdText
   
    Do Until rs1.EOF

            Write #1, rs1!e1, rs1!e2, rs1!ItemCount, rs1!F1, rs1!F5, rs1!e3, rs1!F3, rs1!e4, rs1!e5, rs1!F15, rs1!e6, rs1!e7, dblInvoiceTotal, rs1!e8
            Do Until rs2!ItemCount <> rs1!ItemCount
                Write #1, rs2!e1, rs2!e2, rs2!ItemCount, rs2!linecount, dblInvoicedetail, rs2!F1
                rs2.MoveNext
                If rs2.EOF Then
                    Exit Do
                End If
            Loop

            'Write a single detail/type 3 record for each header.
            Write #1, rs3!e1, rs3!e2, rs3!ItemCount, rs3!e3, dblInvoiceTotal, strAddDays(rs1!F15, 30)
            rs3.MoveNext
            rs1.MoveNext
        End If
    Loop

Close #1

Thanks!
Courtney