Imprimir texto separado por ;

Este ejemplo de código podría servirte:
dim RS as new adodb.recordset
dim CNX as new Adodb.Connection
CNX = Cadena_De_Conexion_a_Access
CNX.open
rs.open "select * from tabla",cnx,1,2
dim Fil as integer
Fil = FreeFile
Open "C:\archivo.txt" for output as Fil
rs.movefirst
while not rs.EOF
write RS.Fields(0) + ";" + Rs.Fields(1) + ";" + RS.Fields(2) + ";" + .... RS.Fields(n)
rs.movenext
Wend
A lo mejor tienes el problema de que los campos de tipo texto aparecen entrecomillados en el archivo de texto, si no te sirve así dímelo.
Un saludín

Ok, gracias, voy a probar con este ejemplo.
Cuando lo pruebe te respondo
Gracias