请教access导出txt有关问题

数据表有5个字段A,B,C,D,E,数据如下：
“----”是便于说明数据之排版另加的
---A-----------B--------C-------D----------E--------------F
20120101-123456789098--0.00---2340.00---67896543
20120201-709258216880-197.29--0.00---00098440009844
20120202-909258216880-36409.30-0.00-06264/9880800/732708

用以下导出程序：
..........
Dim Angle(), Array1(), Array2(), Array3(), Array4(), Array5() As Integer
Dim i As Integer
Open "F:\数据连接\test.txt" For Output As #1
con.MoveFirst
Do While Not con.EOF
  For i = 0 To con.Fields.Count - 1
                ReDim Preserve Angle(i)
                ReDim Preserve Array1(i)
                ReDim Preserve Array2(i)
                ReDim Preserve Array3(i)
                ReDim Preserve Array4(i)
                　　　　　　　　　　　　　　'ReDim Preserve Array5(i)
                Angle(i) = con("jzr")
                Array1(i) = con("zh")
                Array2(i) = con("jf")
                Array3(i) = con("df")
                Array4(i) = con("djh")
               　　　　　　　　　　　　　　 'Array5(i) = con("rt")
                Print #1, Format(Angle(i), "@@@@@@@@") & Space(3) _
                        & Format(Array1(i), "@@@@@@@@@@@@@") & Space(0) _
                        & Format(Array2(i), "@@@@@@@@@@@@@") & Space(0) _
                        & Format(Array3(i), "@@@@@@@@@@@@@") & Space(6) _
                        & Format(Array4(i), "@@@@@@@@@@@@@@") & Space(0) 　　' _
                        & Format(Array5(i), "@@@@@@@@@@@@@@")
  Next i
  con.MoveNext
  Loop
Close #1
End Sub
数据如下：
ABCDE列字节数分别是8,14,13,13,15
----A--------------B----------C------------D--------------E
20120101-----123456789098---------0.00------2340.00---67896543　　　（1）
20120101-----123456789098---------0.00------2340.00---67896543      （2）
20120101-----123456789098---------0.00------2340.00---67896543      （3）
20120101-----123456789098---------0.00------2340.00---67896543      （4）
20120101-----123456789098---------0.00------2340.00---67896543      （5）
20120101-----123456789098---------0.00------2340.00---67896543      （6）
20120202-----709258216880-------197.29---------0.00---00098440009844
20120202-----709258216880-------197.29---------0.00---00098440009844
20120202-----709258216880-------197.29---------0.00---00098440009844
20120202-----709258216880-------197.29---------0.00---00098440009844
20120202-----709258216880-------197.29---------0.00---00098440009844
20120202-----709258216880-------197.29---------0.00---00098440009844
问题一：导出的是随字段个数而重叠
问题二：A,B,C,D列能右对齐，E列则是左对齐
问题三：如要导出F列，则会报错“实时错误’9’:下标越界”
以上问题请高手指教，我是新手没分见谅，谢谢！

--------------------编程问答-------------------- 你的代码简单看了下我只能简单说下你的问题点的简单处理

问题1.ReDim Preserve Angle(i) 这个方法性能很差的为什么不能一次设置那
直接获取 con.recordcount 可以返回记录集的个数

问题2 输出格式左对齐右对齐的处理。 string 类型可以强制指定记录集长度
String a *10  这种字符串是按照固定长度保存的。这个就是左对齐
右对齐的话就是判断字符串长度然后加上空格就好了 --------------------编程问答-------------------- 楼上能具体写下吗？
--------------------编程问答--------------------

补充：VB ,  基础类