Access VBA Export Readable .txt file

Sub oTestExport()
    
    OutputToText ("Select * From t_Arms")
    
End Sub


Function OutputToText(ByVal oSQL As String)

    Dim Recordset As DAO.Recordset
    
    Dim mfile As Integer
    Dim strLine As String
    Dim oPathAndFile As String: oPathAndFile = CurrentProject.Path & "\" & "Text.txt"
    
    strLine = vbNullString
    
    Set rst = CurrentDb.OpenRecordset(oSQL, dbOpenSnapshot)
    
    mfile = FreeFile 'Returns value of 1
    'Open "C:\Temp\Recordset.txt" For Output As #mfile
    Open oPathAndFile For Output As #mfile
    'headers
    For i = 0 To rst.Fields.Count - 1
        strLine = strLine & rst.Fields(i).Name & ","
    Next
    strLine = Left(strLine, Len(strLine) - 1)
    Print #mfile, strLine
    
    With rst
        While Not .EOF
        strLine = vbNullString
        For i = 0 To .Fields.Count - 1
        strLine = strLine & rst.Fields(i) & ","
        Next
        strLine = Left(strLine, Len(strLine) - 1)
        Print #mfile, strLine
        .MoveNext
        Wend
        Close #mfile
    End With
    
End Function

Select allOpen in new window