I am working to export each record in a access db, excell spreadsheet, csv file or whatever file type that it needs to be in to a file. I want each row to be its own file.

Help me please
below is a module from a macro that I converted.

I have this so far....
---------------------------------------------
Option Compare Database

Function Output1()
On Error GoTo Output1_Err

DoCmd.GoToRecord acTable, "Email", acFirst
' Output
DoCmd.OutputTo acTable, "Email", "MS-DOSText(*.txt)", "c:\test\RecNum.txt", False, ""
DoCmd.GoToRecord acTable, "Email", acNext


Output1_Exit:
Exit Function

Output1_Err:
MsgBox Error$
Resume Output1_Exit

End Function
--------------------------------------------------