Visual Basic para Aplicaciones - Generar un archivo txt a partir de una BDD

Hola de nuevo, tengo una base de datos de access y lo que tengo que hacer es generar dos archivos con el contenido de esa base de datos, uno en excel (que ya lo hice) y otro en txt (que es el que no tengo)

resumen: alguien sabe cómo puedo generar un archivo txt a partir de una base de datos access, claro por programación de VB
(usando dataenvironment)

Yo uso ADO y es muy fácil...

Private Sub cmdRespaldarEnTxt_Click()
Dim strRegistros As String
Dim FichLibre As Long

If Not adoRst.State = adStateClosed Then
strRegistros = adoRst.GetString(adClipString)
FichLibre = FreeFile
Open App.Path & "\Tmp.txt" For Binary As FichLibre
Put #FichLibre, , strRegistros
Close FichLibre
adoRst.MoveFirst
MsgBox "Archivo guardado correctamente"
Else
MsgBox "Recordset cerrado"
End If
End Sub

Primero tienes que abrir la tabla tipo recordset:
Si utilizas DAO

set MiTabla =Mibase.Openrecordset("TABLA",DBOPENDYNASET)
IF MiTabla.RecorCount>0 then
Open "C:\Miarchivo.txt" For Output As #1
Do While Not Mitabla.Eof
Print #1 MiTabla!MiCampo1 + MiTabla!MiCampo1 +chr(13)+chr(10)
MiTabla.MoveNext
Loop
Close #1
EndIF