strline = strline & "="""&x.value """"& chr(9)
这行提示报错大大们帮我看看是哪里鞋错了了
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
if InArray(x.name,fields)<>-1 then
strline = strline & "="""&x.value """"& chr(9)
end if
next
myfile.writeline strLine
rs.MoveNext
loop
end if