Consulta access

[Taribo007]

Si claro, prueba con esto:

'************************************************* *****************
Dim rst As DAO.Recordset
Dim VarEmails As String
Dim LngFichero As Long
Dim StrFichero As String


'Establcemos la ubicacion del fichero, en la misma que la bd
StrFichero = CurrentProject.Path & "\Direcciones.txt"
LngFichero = FreeFile

Set rst = CurrentDb.openrecordset("Select DirCorreoElectrónico from Clientes")

While Not rst.EOF
VarEmails = VarEmails & rst!DirCorreoElectrónico & ";"
rst.MoveNext
Wend

'Esto es por si quieres quitar el ; que quedara al final
If Nz(VarEmails, "") <> "" Then
VarEmails = Left(VarEmails, Len(VarEmails) - 1)
'Abrimos el fichero como escritura, si no existe lo crea
Open StrFichero For Output As #LngFichero
'escribimos en el fichero el contenido de la variable
Print #LngFichero, VarEmails
'cerramos el fichero
Close #LngFichero
Else
MsgBox "Ninguna direccion de correo seleccio nada"
End If

rst.Close
Set rst = Nothing
'************************************************* **********

Un saludo