Try something like this (assuming your recordset is already open):



dim strDir as string
strDir = "filetowrite.txt"
Open strDir For Output As #1
If datFiles.Recordset.EOF Then
Else
With datFiles.Recordset
.MoveFirst
Do Until .EOF
fldname1 = !dbfldname1
fldname2 = !dbfldname2
fldname3 = !dbfldname3
fldname4 = !dbfldname4
fldname5 = !dbfldname5
Print #1, fldname1 & " " & fldname2 & " " & fldname3 & " " & fldname4 & " " fldname5
.MoveNext
Loop
.MoveFirst
End With
End If
Close #1