Open "test.txt" For Output As 1 
    Data1.Recordset.MoveFirst 
    Do While Not Data1.Recordset.EOF 
     Print #1, Data1.Recordset("×Ö ¶Î 1"); ", "; ' ²» »» ÐÐ 
     Print #1, Format(Data1.Recordset("×Ö ¶Î 2"), "###.##") 
     Data1.Recordset.MoveNext 
    Loop 
    Close #1 
<END>    