Visual Basic - generaciond de archivo plano

Hola que tal?
Pues necesito generar una archivo plano con vb pero desde una tabla de access. Sé que hay una opcion para importar a archivo de texto. pero yo necesito generar ese archivo con un formato especial.. espero me puedan ayudar... necesito solo unas lineas de codigo.. para generar el archivo (prg)

Espero que esto te ayude.

Al procedimiento le pasas el parámetro sDatos, con el formato que te interese, por lo que he leído, tendrás que ir recorriendo la tabla registro por registro. Una vez hayas leído uno creas el formato que te interesa y llamas al procedimiento y así, hasta que hayas recorrido toda la tabla.

Un saludo

'---------------- INICIO PROCEDIMIENTO --------
Public Function GeneraFicheroPlano(ByVal sDatos As String) As Boolean
'sDatos--> Lo que le vas a enviar al fichero

Dim cadena As String
Dim fichero As Integer
Dim i As Long
Dim sNombrefichero As String
Dim sDirectorio As String
On Error GoTo error_fichero

'Los valores de las vbles iContador_Altas, iContador_Bajas e iContador_Modificaciones
'han sido obtenidos previamente en la función Extrae_Contadores de este mismo módulo
sNombrefichero = "Fichero_plano.txt"

sDirectorio =cDirectorioDestino
i = FileLen(sDirectorio & "\" & sNombrefichero)
fichero = FreeFile

Open sDirectorio & "\" & sNombrefichero For Append As #fichero
cadena = cadena & sDatos
Print #fichero, Trim(cadena)
Close #fichero
GeneraFicheroPlano = True
Exit Function
error_fichero:
Select Case Err.Number
Case 53 'Aquí entra cuando no existe el fichero
Err.Clear
'Esta cadena siempre la llevarán los ficheros
'SI QUIERES QUE EL FICHERO LLEVE UNA
'CABECERA EN SU PRIMERA LINEA, SE LO
'ASIGNAS