ACC2000: How to Write More than 255 Columns to a Text File

Option Explicit
					

Sub WriteFlatFile(sFileName As String, sDelimiter As String)

    On Error GoTo WriteFileErrors

    Dim rst1 As DAO.Recordset
    Dim rst2 As DAO.Recordset
    Dim fld1 As DAO.Field
    Dim fld2 As DAO.Field
    
    'Counter variable used to print the delimiter except after
    'the last field for rst2
    Dim intCount As Integer
    
    'Delete the specified file if it already exists
    If Dir(sFileName) <> "" Then
        If MsgBox("The file you entered already exists.  Would you " _      
        & "like to delete it?", vbExclamation + vbYesNo) = vbYes Then
            Kill sFileName
        Else
            Exit Sub
        End If
    End If
    
    'Create a separate recordset for each query
    Set rst1 = CurrentDb().OpenRecordset("qryCustomers1")
    Set rst2 = CurrentDb().OpenRecordset("qryCustomers2")
    
    'Open the file using the Open statement
    Open sFileName For Output As #1
    
    'Write the header row from both recordsets using the Print statement
    For intCount = 0 To rst1.Fields.Count - 1
        Print #1, rst1(intCount).Name & sDelimiter;
    Next
    
    'This uses a counter variable to see determine if we are writing the
    'last field. If we are, do not print the delimiter. Only check this   
    'for the end of the second recordset, to make sure there is a delimiter 
    'between the 2 recordsets
    For intCount = 0 To rst2.Fields.Count - 1
        If intCount < rst2.Fields.Count - 1 Then
            Print #1, rst2(intCount).Name & sDelimiter;
        Else
            Print #1, rst2(intCount).Name;
        End If
    Next
    
    'Write new line
    Print #1,
    
    'Write the data from each recordset
    Do While Not rst1.EOF And Not rst2.EOF
        For intCount = 0 To rst1.Fields.Count - 1
            Print #1, rst1(intCount).Value & sDelimiter;
        Next
        rst1.MoveNext
        
        For intCount = 0 To rst2.Fields.Count - 1
            If intCount < rst2.Fields.Count - 1 Then
                Print #1, rst2(intCount).Value & sDelimiter;
            Else
                Print #1, rst2(intCount).Value;
            End If
        Next
        rst2.MoveNext
        
        'write to new line
        Print #1,
    Loop

    MsgBox "File has been written to " & sFileName
    
WriteFileExit:
    'Close objects and destroy DAO object variables
    rst1.Close
    rst2.Close
    Set rst1 = Nothing
    Set rst2 = Nothing
    
    'close the sequential file opened earlier
    Close #1
    
    Exit Sub

WriteFileErrors:
    MsgBox "An error has occurred: " & vbCrLf & Err.Number & " " & Err.Description
    Resume WriteFileExit
End Sub
					

WriteFlatFile "C:\TestFile.txt",","