Visual Basic - COMO CREAR ARCHIVOS DE TEXTOS?

HOLA TODOS:
QUISIERA SABER COMO PUEDO CREAR UN ARCHIVO DE TEXT
LEYENDO LA INFORMACION DESDE UNA BASE DE DATOS ACCESS, ES DECIR, QUIERO LEER TODA LA BASE Y CON LOS DATOS CREAR UN ARCHIVO QUE PUEDA LEERLO CON EL BLOQUE DE NOTAS.

GRACIAS AMIGOS Y AMIGAS

*** primero llenas un recordset en este ejemplo se llama rcdRegis.

Dim xobjeto As Object
Dim xarchivo As Object
Set xobjeto = CreateObject("Scripting.FileSystemObject")
Set xarchivo = xobjeto.CreateTextFile("c:\ordenes.txt", True)
rcdRegis.MoveFirst
Do While Not rcdRegis.EOF
xarchivo.Write (Trim(rcdRegis!cuenta)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdRegis!ejecutada)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdRegis!nombre)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdRegis!unum_calle)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdRegis!unom_calle)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdRegis!uso)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdRegis!fecha_emision)): xarchivo.Write (",")
xarchivo.Writeline (Trim(rcdRegis!numero_orden))
rcdRegis.MoveNext
Loop
xarchivo.Close

**** espero te sirva

GRACIAS ME FUNCIONO PERFECTAMENTE.