读字段名称和内容
For i = 0 To rs.Fields.Count - 1
temp=rs.Fields.Item(i).Name '名称
temptxt=temptxt+temp
temp1=rs.fields.item(i).value '内容
temp1txt=temp1txt+temp1
Next
'写入文本文件
Set fs = CreateObject("scripting.filesystemobject")
Set txtfile = fs.createtextfile(filename)
txtfile.write (temptxt)
txtfile.Close