txt2mdb问题100分（10万火急）

[大山里的松]

我写了一个txt2mdb的程序
txt文件有上万行
问题是：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a
Dim fso, txtfile
Dim strSQL As String

conn.CursorLocation = adUseClient


conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\tempdb.mdb;Persist Security Info=False"
conn.Open

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.OpenTextFile(CommonDialog1.FileName, 1)


Do While Not txtfile.AtEndOfLine
strtxt = txtfile.readline
a = Split(strtxt, ",")
strSQL = "insert into 数据 (v,i) values (" & a(0) & "," & a(1) & ")"
conn.Execute strSQL
Loop
txtfile.Close

conn.Close
Set conn = Nothing

----------------
运行后插入的数据和文本文件中的数据顺序不同，
前面的几条记录总是随机的插入到数据库中间的几百行中
就是不能保证txt文件中的纪录顺序与mdb文件中的顺序一致
这些数据是用来画图的，可以清楚的在图像上看出来，数据的顺序出了问题
而我用Access的数据导入功能就没有这个问题
请高手指教，分不够，单独开贴再加