Print Recordset To File

hi guys,

i'm trying to run a recordset and export the string of each record into a txt file. from all the examples ive seen the way i'm doing it is right but i'm not getting any data to go into the actual file. my loop works perfect (as i watched it in debug mode) and it makes the string, my file just isnt getting outputted.

heres the code:

Private Sub btneParcel_Click()

Dim rs As Recordset
Dim strContents As String
Dim lngFileNum As Long
Const strFileName = "g:worksdatImport01.txt"

Set rs = CurrentDb.OpenRecordset("SELECT * FROM QryeParcelExport")
If rs.RecordCount > 0 Then

'header lines
strContents = "ISA*" & Format(Now, "yyyymmdd") & "*" & Format(Now, "hhnnss")
strContents = strContents & vbCr & "GS*CN"

Do While Not rs.EOF
'detail
strContents = strContents & "ST*"
strContents = strContents & vbCr & "CN*" & rs("EntryDate") & "*" & rs("EntryTime") & "*E*" & rs("CustId") & "*" & rs("CustName") & "*" & rs("CustAddr1") & "*" & rs("CustAddr2") & "*" & rs("CustAddr3") & "*" & rs("CustCountry") & "*" & rs("CustPhone") & "*" & rs("ChargeAcctNo")


rs.MoveNext
Loop

'footer
strContents = strContents & "GE*8"
strContents = strContents & vbCr & "IEA*36"


lngFileNum = FreeFile
Open strFileName For Output As #lngFileNum
Print #lngFileNum, strContents
Close #lngFileNum

MsgBox "Client Data has been successfully exported to G:Import01.txt", vbExclamation


End If

End Sub

anyone able to help with this? actually just reading my code, do i need another new line at the end of my string? think parts are going to one massive line that should be seperate lines...but that should still output something.