Visual Basic - 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)

copiate esta funcion y pasale el archivo.txt a generar y la conexion a tu BD
y te genera un archivo separado por comas igual a tu tabla access o de cualquier tipo

Function ConviertoAtexto(MIarchivoconpath As String, Myconn As ADODB.Connection)
Dim MiRubrito As String
Dim Xmirs As ADODB.Recordset
Set Xmirs = New ADODB.Recordset
Open MIarchivoconpath For Output As 1
Set Xmirs = Myconn.Execute("select * from tablaaccess")
Do While Not Xmirs.EOF
Print #1, Xmirs("columna1") &"," xmirs("columna2") &......
Xmirs.MoveNext
Loop
Close 1
end function