Aqui tienes una solución....
Código:
Function pasaTXT()
Dim rs As New ADODB.Recordset
Dim Sql As String
Dim nom As String
'Sentencia SQL que traiga los datos que quires listar
Sql = "SELECT tel from tuTabla"
'Ruta y nombre del archivo txt donde listar los datos
nom = "ruta\nombre.txt"
'Lee los datos y los guarda en un recordset
rs.Open Sql, CurrentProject.Connection, _
adOpenKeyset, adLockOptimistic
'Si el archivo existe lo elimina (ojo)
On Error Resume Next
Kill nom
On Error GoTo 0
'Abre el archivo
Open nom For Output As #1
'Recorre el recordset
Do While Not rs.EOF
'Imprime los datos del recordset
Print #1, rs!tel
'Accede al siguiente registro
rs.MoveNext
Loop
'Cierra el fichero
Close #1
'Cierra el recordset
rs.Close
End Function
Quim
Mientras codificaba la funció se me adelanto Taribo007