以一個表為例：
dim sql as string,back as string
sql="select * from 所選表名之一"
rs.open Sql,conn,1,3
while not rs.eof
 back=""
 back="insert into 表名 ("
 for(i=0 to rs.Fields.Count-1)
  back=back & rs.Fields.Item(i).Name
  if i<rs.rs.Fields.Count-1 then back=back & ","
 next
back=back & ") values("
for(i=0 to rs.Fields.Count-1)
  back=back & "'" & rs.Fields.Item(i).value & "'"
  if i<rs.rs.Fields.Count-1 then back=back & ","
next
 back =back & ")"
rs.movenext
wend



open app.path & "\filename.txt" for output as #1
print #1 back
close #1