作者isakira

你有迴圈,但是資料列沒有往下動,這段修改一下如下
Do While Not rs.Eof
　　strData = ""
　　For i = 0 to rs.Fields.Count - 1
　　　　strData = strData & Trim(rs(i).Value) & ","
　　Next i
　　Print #varFile, strData
rs.movenext
Loop