'step 1: open the database
'step 2: open the table/recordset/sql
'step 3: open a textfile
'step 4: go througt the table
'step 5: write the value to the text file
'step 6: Close Table / Database And textfile

'step 1 / 2:

Dim db As Database
Dim rs As Recordset

'Set db = OpenDatabase(yourdatabasename)
'Set rs = db.OpenRecordset(yourtablename)

'step 3:

Dim nFile%
Dim vFileName$
'vFileName$ = the name and location of the text file

nFile% = FreeFile
Open vFileName$ For Output As #nFile%

'step 4 / 5:

Dim counter%
Dim MaxFields%
MaxFields% = rs.Fields.Count - 1

Do While Not rs.EOF
    For counter% = 0 To MaxFields%
        If Not IsNull(rs.Fields(counter%).Value) Then _
        Print #nFile, rs.Fields(counter%).Value
    Next counter%
    rs.MoveNext
Loop

'step 6:

rs.Close
db.Close
Close #nFile%


This way you get all the value on a different line in your textfile.
If you want the record on one line just change step 4/5 to

Dim counter%
Dim MaxFields%
MaxFields% = rs.Fields.Count - 1

Do While Not rs.EOF
    For counter% = 0 To MaxFields%
        If Not IsNull(rs.Fields(counter%).Value) Then _
        Print #nFile, rs.Fields(counter%).Value;
    Next counter%
    Print #nFile,
    rs.MoveNext
Loop