Visual Basic - Exportar recordset a txt

Saludos :
Hola amigos un favor alguien tendra una funcion para exportar un recordset a archivo txt, separado por separadores, si alguien tuviese esa funcion bestial.
Mychas gracias por todo a la comunidad.

Puedes utilizar el método GetString de ADO y una función para guardar el archivo:

FilToString MiRecordset.GetString(",",vbCrLF),App.Path & "\MiArchivo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function