Private Sub Text_Datei()
  Dim i as Double ' zum Zählen
  Dim F as Integer ' Freefile
  Dim NName as String ' die Nachnamen
  Dim VName as String ' die Vornamen
 
  F = FreeFile 'Damit wir wissen, welche Dateinummer zur Verfügung steht
 
  Open "C:\Test.TXT" For Output As F 
 
  For i = 1 To Recordset.RecordCount
       NName = Recordset.Fields(0).Value
       VName = Recordset.Fields(1).Value
 
       Print F, NName & "," & VName
  Next i
  MsgBox "Das Überspielen in die Textdatei ist abgeschlossen", vbInformation
End Sub