Visual Basic - archivo MDB convertir a TXT

Hola amigos:
Estoy generando desde una MDB un archivo TXT pero no lo genera ordenado en columnas. A partir del tercer registro se me pira........
La MDB agenda está conectada a un DATA(dtaClientes).

. Dim registro
DtaClientes.Recordset.MoveFirst
Open "C:\Agenda\TXT\agenda.txt" For Output Access Write As 1
While Not (DtaClientes.Recordset.EOF)
For Each registro In DtaClientes.Recordset.Fields
Print #1, registro.Value,
Next
Print #1, registro
DtaClientes.Recordset.MoveNext
Wend
Close #1

Desde yá muchas gracias y muchos saludos.
Hasta la próxima .
Horacio

prueba esto

Dim registro as field
DtaClientes.Recordset.MoveFirst
Open "C:\Agenda\TXT\agenda.txt" For Output Access Write As 1
While Not (DtaClientes.Recordset.EOF)
For Each registro In DtaClientes.Recordset.Fields
Print #1, registro.Value,
Next
DtaClientes.Recordset.MoveNext
Wend
Close #1