for i=1 to 200
conn.execute("insert into [表名] (title) values ('" & i & "')")
next
while not rsex.eof
i = 1
while i < j+1
sqlis = "insert into " & tablename & "([field"& i &"]) values('"& fixsql(rsex(i - 1)) &"')"
ADOConn.execute(sqlis)
i = i + 1
wend
rsex.movenext
wend
这样试试
以上回答你满意么?