数据库连接查询语句省略。。。。假设TXT文本框为txt1语句为:txt1.txt=rs(数据项目)如果多个项目合并的txt1.txt=rs(数据项目1)&rs(数据项目2)&......
open '打开文本rs.open ".." ‘游标取得所需数据集do while not rs.eofprint #1,rs.fields(0)+vbcrlf+fields(1)....loopclose #1rs.closeset rs=noting