.CSV output for all collar data

csv_output.VB

Sub csv_output()

Dim rs As DAO.Recordset
Dim sql As String
Dim fso As Object, csv As Object
Dim l As String

sql = "SELECT * FROM Query3"
Set rs = CurrentDb.OpenRecordset(sql)
Set fso = CreateObject("Scripting.FileSystemObject")
Set csv = fso.createtextfile("C:\Users\Mgritts\Documents\AllCollars.csv")

rs.MoveFirst
csv.writeline "locid, ndowid, timestamp, long_x, lat_y, hdop, species, mgmtarea, deviceid"
With rs
    Do Until .EOF
        l = !locid & "," & !ndowid & "," & !timestamp & "," & !long_x & "," & !lat_y & "," & !hdop & "," & !spid & "," & !mgmtarea & "," & !deviceid
        csv.writeline l
        .MoveNext
    Loop
End With
    
rs.Close
csv.Close
Set fso = Nothing
Set csv = Nothing
Set rs = Nothing

End Sub