這里是把一個同的數據一次性保存到另一個表，用的是sql insert into  select另一張同結構的新表

sub append()
cal

數據連接代碼

sub opendb()
set rs=server.CreateObject("adodb.recordset")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("datasource/hhinfo.mdb")
conn.open
end sub