ID Name
1 Rylemer
2 Charles
3 Bill

In the ex. above is the records in my table. I have 3 records in the table then I want to put every records in a text file.

ex. Rylemer I want to write in a text file I will call it elmer.txt
then next Charles I want to write also in a text file and want to call it Charles.txt same as record no. 3


 Here is my code

Dim rs As DAO.Recordset
Dim sPath As String
    sPath = "C:\temp\Temptext.txt"
    Set rs = CurrentDb.OpenRecordset("FEDINCOUNT")
        Open sPath For Output As #1
            Do Until rs.EOF
                FEDEIN = rs("FedEIN")
                Print #1, FEDEIN

                rs.MoveNext
            Loop
        Close #1
            rs.Close
    Set rs = Nothing

How you can help me

Thanks
Rylemer

Just swap your code around a bit so you open and close a text file inside of the Do ... Loop, something like this:
BTW it's much safer to use FreeFile rather than #1 for your file numbers.

rgds
Phil

Thanks Phil its working.