如題，可是很慢，光是三筆資料就花了我二分鐘的時間…
請問我該如何增加速度呢??
Private Sub Form_Load()
fname = Dir(App.Path + "\*.txt")
End Sub
Private Sub Command1_Click()
While fname ＜＞ ""
s = Split(fname, ".")
conTain = "" 'conTain 是用來存放文字檔內容的變數
Open App.Path + "\" + fname For Input As #1
While Not EOF(1)
Line Input #1, aline '讀一行資料放到aline變數
conTain = conTain & aline & vbCrLf
DoEvents
Wend
Close #1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value = conTain
Adodc1.Recordset.Update
DoEvents
fname = Dir
Wend
End Sub