Append query of tabel waarden naar txt-file

[K2M]

Ik will graag de waarden in mijn tabel of query toevoegen naar een txt-file.
Ik weet dat ik iets met myFile.writeline moet doen.

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, MyFile, FileName, TextLine

Set fso = CreateObject("Scripting.FileSystemObject")

' Open the file for output.
FileName = "C:\Bestand.txt"

Set MyFile = fspenTextFile(FileName, ForAppending, True)

' Write to the file.
MyFile.WriteLine .................
MyFile.Close

Kan iemand mij hierbij helpen?