Eksport Data fra Acces med Dos character set

The doCmd.TransferText should be able to export in either DOS (PC 8) or Windows (Ansi)

Tak Terry men jeg kende ikke så meget i Access modul, jeg kunne tænke mig i ren VB6.
Mit program er færdig undtage det med character set,program er følgende:

Private Sub Command1_Click()
Dim DBSPsion As Database
Set Db = OpenDatabase(\"c:\\data\\access\\psion.mdb\")
Set SNPExport = Db.OpenRecordset _
(\"select * from Psion order by Felt1\", dbOpenSnapshot)
Open App.Path & \"\\\" & \"Carlitos.txt\" For Output As #1
\'For iloop = 0 To SNPExport.Fields.Count - 1
\'sFieldText = \"\" & (SNPExport.Fields(iloop).Name)
\'Write #1, sFieldText;
\'Next
SNPExport.MoveFirst
Do While SNPExport.EOF = False
For iLoop = 0 To SNPExport.Fields.Count - 1
sFieldText = sFieldText & Chr(9) & (SNPExport.Fields(iLoop))
Next
Print #1, sFieldText
sFieldText = \"\"
SNPExport.MoveNext
Loop
Close #1
End Sub

Program er smart, fordi den er hurtig og effektiv
jeg vente nogen kommentar fra dig
Enric

Enric>
To do it vi Access would mean changing yoor code, and in the end may not even give you what you want.
So I would suggest that you make a module(function) which loops through each character in sFieldText. Do this  just before you Print #1. Replacing the characters giving the problem with the DOS value.

Tak Terry
Jeg vil give dig de point, men hvis der er nogen som kan uddybe lidt mere eller kænde syntaks??